PageSetUp
Torsten
über die Seitenansicht möchte ich das Papierformat/Skalierung/Anpassen auf 1 Seite breit und 1 Seite hoch einrichten. Das Makro aufzeichnen bringt mich zu:
Sub TEST()
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
Bei einem Testlauf, bei dem ich darauf geachtet habe, daß ich vor dem Ablauf des Makros 4 Blätter habe, pasiert allerdings gar nichts. Ich habe nach wie vor 4 Blätter zum Drucken. Bin ich zu dumm dafür oder habe ich etwas vergessen?
Helft mir bitte mit Euren Tips.
Vielen Dank im voraus.
Gruß
Torsten
Anzeige