ich habe dem Tabellenblatt Seitenumbrüche hinzugefügt.
Zum erstellen des PDFs nutze ich den unten stehenden Code.
Nun möchte ich, das er die Seiten, in Summe 13, jeweils auf eine Din A4 größe skalliert.
Wie mache ich das?
Sub Makro1()
' Makro1 Makro
Worksheets("Monatsansicht").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\Groups\BuT-MWP\MesswartePlanung\Test.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Worksheets("Jahresplan Vorplanung").Activate
End Sub