PDF aus zwei mach ein
18.10.2020 23:44:33
Norbert
leider konnte ich mich bei Daniel das letzte mal nicht bedanken, da ich Probleme habe mich dort wieder anzumelden.deshalb auch diesmal schon meinen Dank im Voraus.
ich habe zwar schon viel gelesen, aber nichts verstanden. Ich möchte von einer Datei aus verschiedenen Tabellen unterschiedliche Anzahl an Seiten zu einer PDF vereinen. Mein Makro läuft, macht speicher aber jede Tabelle als extra PDF ab.
Es sollen später noch weitere Tabellen folgen.
hier mein Code:
Sub pdf_erstellen()
Dim pdfName As String
With Sheets(4).Activate
pdfName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, From:=1, _
To:=Sheets(4).Range("a1"), Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
With Sheets(5).Activate
pdfName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, From:=1, _
To:=Sheets(5).Range("a1"), Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub
Anzeige