Mehrere Druckbereichen eine pdf-Datei
18.08.2022 19:45:55
AlexH
ich versuche mehrere Druckbereiche aus einer Arbeitsmappe in eine pdf-Datei zu drucken.
Die Idee ist, dass aus 40 verschiedenen Zeitkonten nur die in eine Datei gedruckt werden, die eine bestimmte Anforderung erfüllen (hier Name WPL).
Den Code für die Auswahl der entsprechenden Konten habe ich zusammengebastelt ... nur erstellt er eben jeweils eine eigene pdf-Datei.
Leider sind meine VBA-Kenntnisse sehr bescheiden, sodass ich einfach nicht weiterkomme.
Sub DruckenWPL()
Dim i As Integer
Application.ScreenUpdating = False
Sheets("Eingabe").Select
Range("D2").Select
For i = 1 To 39
If ActiveCell = "WPL" Then
ActiveCell.Offset(-1, -3).Range("A1:S37").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveCell.Offset(1, 3).Range("A1").Select
ActiveCell.Offset(0, 19).Range("A1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Pfad auf dem Server\WPL" & i & Format(Now, "YYYYMMDD_HHMM") & ".pdf"
ActiveSheet.PageSetup.PrintArea = ""
Else: ActiveCell.Offset(0, 19).Range("A1").Select
End If
Next i
Application.ScreenUpdating = True
End Sub
