VisualBasic mehrere Druckbereiche verschiedener Sheets per Makro als pdf drucken

[Schwenni]

Hallo,

anbei der Code zum ausdrucken der bestimmten Sheets als PDF:

ThisWorkbook.Sheets(Array("Sheet1_1", "Sheet2_1", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7_1")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"c:\tmp\test", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Er gibt mir meine 7 Seiten aus aber diese sind alle leer.

Auf den jeweiligen Arbeitsplättern sind Pivot Diagramme und um diese wurden Druckbereiche festgelegt.

Im Namensmanager in Excel sind diese auch wie folgt zu sehen:


Druckbereich ..... = Sheet1_1!$A$1:$P$43
Druckbereich ..... = Sheet2_1!$A$1:$P$43
usw....

Jemand ne Idee warum er trotz Parameter "IgnorePrintAreas:=False" die Bereiche nicht in der PDF Ausgabe berücksichtigt bzw die Diagramme nicht im Druckbereich im PDF darstellt ?

Wenn ich per Hand die Sheets markiere und ein PDF erzeuge klappt alles.

mfG
Sven

 

[Cassius1985]

Du kannst den Druckbereich manuell festlegen...

ActiveSheet.PageSetup.PrintArea = "$A$1:$B$2"

Sollte auch mit Variablen funktionieren

 

[Schwenni]

Das Problem ist das es viele Sheets auf einmal sind... die alle selektiert werden und nur einer aktiv dabei ist.

Habe jetzt mal diesen Code und da spuckt er mir was passendes aus.
Im Moment habe ich aber auch auf jedem Sheet den gleichen Druckbereich.
bin gespannt was passiert wenn der mal unterschiedlich ist.

Sheets(Array("Sheet1_1", "Sheet2_1", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7_1")).Select
Sheets("Sheet1_1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\temp\test", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True