VisualBasic mehrere Druckbereiche verschiedener Sheets per Makro als pdf drucken

Schwenni · 16. März 2017

Hallo,

anbei der Code zum ausdrucken der bestimmten Sheets als PDF:

Code:

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 · 16. März 2017

Du kannst den Druckbereich manuell festlegen...

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

Sollte auch mit Variablen funktionieren

Schwenni · 16. März 2017

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.

Code:

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

Suche

VisualBasic mehrere Druckbereiche verschiedener Sheets per Makro als pdf drucken

Schwenni

Ensign

Cassius1985

Captain

Schwenni

Ensign

Ähnliche Themen