Hallo,
ich habe leider keine Lösung auf mein Problem gefunden!
Ich habe ein Sheet, das wie folgt aussieht:

Gerne würde ich es so drucken, dass keine leeren Seiten dazwischen sind. Dies gelingt mir aktuell nicht.
Hier meine Codeschnipsel:
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.adress
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\Rahmenvereinbarungen\pdf\" & dateiname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Bin gespannt auf eure Lösungsvorschläge!
LG aus Frankfurt