each wks in activeworkbook
30.04.2003 11:06:38
Frederik Fuhrmann
Kann mir jemand sagen, was an folgendem Code falsch ist?
Dim wks As Worksheet
For Each wks In ActiveWorkbook
ActiveSheet.PrintOut
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Next wks
Der Fehler tritt bei each wks... auf!
Gruß
F.
Anzeige