PDF gesamt und nicht einzeln drucken
02.05.2018 09:45:24
Peter
ich habe ein Makro welches mir nach Nummer Seitenumbrüche macht. Danach wird für jede Nummer ein PDF erstellt.
Was muss ich bitte ändern das auch ein gesamtes erstellt wird also wo quasi alle Seiten in eine Datei kommen,natürlich auch mit den Seitenumbrüchen nach Nummer aber eben keine 200 Einzelseiten sondern ein Dokument mit 200 Seiten?
Vielen Dank für eure Hilfe
Grüße
Peter
Markoauszug:
Dim lngZ As Long
Dim lngZBeginn As Long
'Seitenumbruch je Gruppe (Name) in Spalte setzen
lngZBeginn = 31
For lngZ = 31 To Range("F" & Rows.Count).End(xlUp).Row 'ab Zeile 31
If Range("F" & lngZ) Range("F" & lngZ + 1) Then
'Dienstplan einzeln als PDF ausgeben
ActiveSheet.PageSetup.PrintArea = "A" & lngZBeginn & ":G" & lngZ
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("F" & lngZ) & "_" & Format(Date, "YYYY_MM_DD_") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
lngZBeginn = lngZ + 1
'Hier kann man die PDF auch gleich an den Drucker senden....
'ActiveSheet.PrintOut
End If
Next
'Druckbereich festlegen
ActiveSheet.PageSetup.PrintArea = "A1:G" & lngZ - 1