mehrere TB als 1 PDF
07.03.2022 12:43:31
Sabine
ich habe folgendes Anliegen:
Ich möchte gerne mehrere TB als eine PDF speichern.
Dazu gibt es bereits viele Einträge, jedoch, bei denen die ich gefunden habe, sind die Blätter im Code bereits vorgegeben.
Ich möchte es aber variabel halten und immer wieder eine neue Auswahl an Blättern speichern.
Kann mir jemand dabei helfen oder einen Link schicken, wo das bereits steht?
Mein Code lautet:
Sub PDF_Print_all_in_one()
ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\xxx\pdf\" & Format(Date, "YYYYMMDD") & "_" & "alle_Bereiche_" & "KW" & ActiveSheet.Range("C6").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Ich habe es bereits mit thisworkbook.activesheets probiert.
Der Code, der jedes Blatt einzeln abspeichert, obwohl mehrere Blätter markiert sind funktioniert:
Sub PDF_Print_seperate_Sheet()
'Modifiziert
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
With wks
.Select
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\xxx\pdf\" & Format(Date, "YYYYMMDD") & "_" & .Name & "KW" & .Range("C6").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
Next wks
End Sub
Sabi
Anzeige