Hallo zusammen!
Ich möchte mehrere Bereiche eines Worksheets in ein einzelnes pdf drucken. Das Problem ist, dass sich hoch- und querformat der Bereiche mehrmals abwechseln.
Bisher konnte ich nur eine Lösung finden, die jedes Blatt separat druckt, was aber als pdf sehr umständlich wäre:

Sub ReportDrucken()
With ThisWorkbook.Worksheets("Report").PageSetup
.PrintArea = Range("Druckbereich1").Address
.Orientation = xlPortrait
.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
End With
Application.Dialogs(xlDialogPrint).Show
With ThisWorkbook.Worksheets("Report").PageSetup
.PrintArea = Range("Druckbereich2").Address
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut

Ich habe auch einen Link gefunden, (http://sliceofhealthdata.blogspot.de/2013/08/print-multiple-excel-worksheets-to-pdf.html) wie ein pdf aus mehreren Worksheets erstellt werden kann, jedoch möchte ich nicht so viele Worksheets für den Report erstellen.
Ich würde mich riesig über Hilfe freuen, ich weiß nicht mehr, wo ich noch suchen kann.
Viele Grüße
Philipp