PDF Export mit mehreren Blättern
11.10.2016 17:03:41
Philipp
Ich hab folgenden Code um 3 Tabellenblätter als ein PDF zu exportieren.
Mir wird aber immer nur der Bereich A1:F44 von jedem Blatt exportiert, obwohl ich bei jedem Tabellenblatt die Range separat auswähle. Als würde er die erste Range für jedes Blatt übernehmen. Bug oder Skills?
letzte_zeile_Angebotsvorlage_K = 8
Worksheets("Angebotsvorlage").Activate
ActiveSheet.Range("A1:F44").Select
Worksheets("Angebotsvorlage_K").Activate
ActiveSheet.Range("A1:G" & letzte_zeile_Angebotsvorlage_K).Select
Worksheets("Angebotsvorlage_H").Activate
ActiveSheet.Range("A1:G116").Select
ThisWorkbook.Sheets(Array("Angebotsvorlage","Angebotsvorlage_K","Angebotsvorlage_H")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Users\test\test.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Gruß
Philipp
Anzeige