ich möchte gerne per Makro aus einer Mappe mit 10 Blättern die ersten 9 Blätter in eine pdf. Datei drucken.
Wie funktioniert das?
Danke für die Hilfe!
Gruß
Martin
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