Hallo, Ich habe ein Makro geschrieben, welches gewisse Arbeitsblätter entsprechend des dort festgelegten Hoch/Querformates und Druckbereiches in eine PDF einfügen soll. Allerdings wird in der PDF lediglich die erste Seite/ das erste Arbeitsblatt eingefügt. Anstatt der weiteren 3 (gesamt 4).
1
2
3
|
Sheets(Array("Blatt 1", "Blatt - 2", "Blatt 3", "Blatt - 4")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Ordner\Dateiname.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True
|
Die Namen der Blätter sind zu Beispielen geändert worden. Aber die "-" sollen nur darauf hinweisen, das in den regulären Namen "-" vorhanden sind.
|