Verschiedene Bereiche aus Arbeitsblatt in PDF drucken

[felixxuss]

Hallo,
ich würde gerne den Bereich A1 bis BJ10 in einer PDF Datei speichern. Da dies sehr breit wird, würde ich gerne die PDF auf drei Bereiche aufteilen. 
A1:R10, S1:BB10 und BC1:BJ10.

mein Aktueller Code ist: 

Sub ToPDF()
   
    Sheets(1).PageSetup.Orientation = 2
   
    Sheets(1).PageSetup.Zoom = False
    Sheets(1).PageSetup.FitToPagesWide = 1
   
    Sheets(1).Range("A1:BJ10").ExportAsFixedFormat xlTypePDF, Filename:=Path, Openafterpublish:=True
End Sub


Wie kann ich die genannten Bereiche in einer DAtei als PDF speichern, sodass jeder Bereich jeweils auf einer eigenen Seite ist?

[RPP63]

Moin!
Füge manuelle Seitenumbrüche in die Excel-Datei ein.
Beachte, dass nun nicht mehr die Range.ExportAs…- benutzt wird, sondern die Worksheet.ExportAs…-Methode.

Gruß Ralf