Sheets als PDF drucken : Makrorekorder
06.10.2022 10:24:03
NoNet
Hallo Alex,
ein kleiner Tipp : Aktiviere die Symboleiste "Entwicklertoools", dort findest du den Befehl "Makro aufzeichnen" ⇒ Makrorekorder.
Mit diesem Makrorekorder kannst du (fast) alle Schritte als VBA-Code aufzeichnen und später exakt so wieder laufen lassen.
Ich habe die folgenden Schritte aufgezeichnet
Druckbereich Blatt AWP1 festlegen
Druckbereich Blatt AWP2 festlegen
Blätte AWP1 und AWP2 markieren (per gedrückter STRG-Taste !)
Drucken per Microsoft Print to PDF (die Druckerauswahl wird leider NICHT aufgezeichnet !)
und dadurch folgenden VBA-Code erzeugt :
Sub DruckenAlsPDF()
' DruckenAlsPDF Makro
Range("A1:E29").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$29"
Sheets("AWP2").Select
Range("B5:F38").Select
ActiveSheet.PageSetup.PrintArea = "$B$5:$F$38"
Sheets(Array("AWP1", "AWP2")).Select
Sheets("AWP1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Diesen Code kann man manuell noch etwas optimieren :
Sub DruckenAlsPDF2()
' DruckenAlsPDF2 Makro
Sheets("AWP1").PageSetup.PrintArea = "$A$1:$E$29"
Sheets("AWP2").PageSetup.PrintArea = "$B$5:$F$38"
Sheets(Array("AWP1", "AWP2")).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
Salut, NoNet