Hallo zusammen,
ich habe ein etwas größeres Makro geschrieben und möchte nun zum Schluss auf meinen Seiten noch die Druckskalierung einstellen. Dafür hab ich eingefügt:
With ThisWorkbook.Sheets(sheetName).PageSetup
.PrintTitleRows = "$1:$2"
.FitToPagesWide = 1 '1 Seite breit
End With
Der erste Befehl zum Drucken der Titelzeilen funktioniert wunderbar, der zweite Befehl will jedoch einfach nicht, die Spalten werden nicht auf eine Seite gepackt.
Könnt ihr mir vielleicht weiterhelfen, woran das liegt?
PS: Ich würde euch auch die ganze Datei anhängen, aber ich bin vermutlich blind und finde den Anhang-Button nicht.
Vielen Dank schon mal!
Liebe Grüße
Pinacles
|