Sub drucken()
Drucker = "PDFCreator auf.." 'hier den Druckernamen also PDF Writer etc.. eintragen
Sheets(Array(1, 2, 3, 4, 5, 6, 7, 8, 9)).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
Drucker, Collate:=True
End Sub
Sub drucken()
Drucker = "PDFCreator auf.." 'hier den Druckernamen also PDF Writer etc.. eintragen
Sheets(Array(1, 2, 3, 4, 5, 6, 7, 8, 9)).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
Drucker, Collate:=True
End Sub