Hallo
Aktuelle nutze ich folgenden Code auf einem Tabellenblatt.
Wenn ich Drucke wird ein Pdf erstellt und auf dem Laufwerk gespeichert.
Es wird dabei nur bis zur letzten beschrieben Zeile gedruckt.
Dim LoI As Long ' Schleifenvariable
Dim LoLetzte As Long ' Variable für letzte Zeile
' letzte Zeile unabhängig von Excelversion für Spalte I (9)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), _
Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
For LoI = LoLetzte To 2 Step -1
If Cells(LoI, 1) Empty Then Exit For
Next LoI
' Druckbereich festlegen
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & LoI
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\Groups\130_EBW_B\VMK-INFO\karten\begleitkarten\" & Worksheets("karte").Range("P17") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Nun möchte ich zwei Tabellenblätter zu einem PDF zusammenfügen, was auch klappt.
Jedoch klappt das mit der letzten beschrieben Zeile nicht.
Wie kann ich das beim erstellen des PDF's auf beide Tabellenblätter anwenden?
Dim LoI As Long ' Schleifenvariable
Dim LoLetzte As Long ' Variable für letzte Zeile
' letzte Zeile unabhängig von Excelversion für Spalte I (9)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), _
Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
For LoI = LoLetzte To 2 Step -1
If Cells(LoI, 1) Empty Then Exit For
Next LoI
' Druckbereich festlegen
Sheets(Array("karte", "karte2")).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & LoI
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\Groups\130_EBW_B\VMK-INFO\karten\begleitkarten\" & Worksheets("karte").Range("P17") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True