ich habe zwei Sheets, welche ich in ein pdf speichern möchte.
Einzeln klappt das super unter Angabe des Druckbereiches.
Jetzt habe ich den bei den Sheets unter PageSetup angegeben.
Wenn ich jetzt aber beide speichern möchte in ein pdf holt er sich den Bereich nicht mehr und es wird viel zu viel gespeichert.
'Hochformat und Druckbereich angeben
With iaWS.PageSetup
.Orientation = xlPortrait
.PrintArea = "$B$2:$G$68"
End With
'Hochformat und Druckbereich angeben
With oplWSTemp.PageSetup
.Orientation = xlPortrait
.PrintArea = "$A$1:$L$50"
End With
'Beide in pdf drucken und öffnen
'Tabellenblatt in PDF speichern und oeffnen
Sheets(Array("projekt", "liste")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF _
, Filename:="\Desktop\Projektplan.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=True, OpenAfterPublish:=True
'Gruppierung wieder aufheben
Sheets("projekt").Select
End Sub