Wie ihr lesen könnt möchte ich gerne meinen Druckbereich als PDF ausgeben. Das Klappt wunderbar mit dem diesem Code:
Private Sub CommandButton1_Click()
ChDir "C:\Users\Desktop" 'anpassen 'oder thisworkbook.path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("F5").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Mein Problem ist jetzt das ich drei Bereiche markiert habe und diese zerstückelt in eine PDF Datei auf 10 Seiten gespeichert werden. Ich möchte aber das die drei festgelegten Druckbereiche jeweils auf eine Seite im Querformat skaliert speichern. Ist das überhaupt möglich und wenn ja wie geht das.Gruß Marco