2 Druckbereiche auf 2 Blättern als 1 PDF
29.04.2019 14:45:40
Peter
ich bräuchte wieder mal eure Hilfe. Mir erschien das Ganze als nicht zu schwierig, leider bin ich nun schon durch zu viele Foren geforstet ohne das richtige Ergebnis zu finden. Auch schon das Aufzeichnen habe ich versucht, hat leider ab dem Blattwechseln nicht mehr richtig funktioniert.
Ich möchte auf Blatt A einen Druckbereich festlegen, dieser soll als erstes gedruckt werden. Dann folgt auf die zweite Seite des PDFs der zweite Druckbereich des zweiten Blatts.
Anbei mein Code. Zuvor lasse ich einen Makro ablaufen, der den aktiven Drucker auf den PDF _
Drucker umstellt:
Sub Druckbereich_Neu()
Sheets(Array("A", "B")).Select
Sheets("A").Activate
Range("A3:H57").Select
Sheets(Array("A", "B")).Select
Sheets("B").Activate
Range("B3:K547").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Auch das habe ich versucht:
Sub Druckbereich2()
ActiveWorkbook.Sheets("A").PageSetup.PrintArea = "$A$3:$H$57"
ActiveWorkbook.Sheets("B").PageSetup.PrintArea = "$B$3:$K$47"
End Sub
Leider alles erfolglos, es erfolgt nur die "letzte" Selektion, nicht die gesamte.
Bitte um Hilfe!
Grüße.