Aber leider wird nicht der Sheet sondern ein anderer gedruckt.
Wir kann man den Sheet aktivieren? Oder wo liegt mein Fehler?
Dim wksTest As Worksheet
Set wksTest = Workbooks("Test.xls").Worksheets("Seite1")
With wksTest
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:=" _
Drucker", Collate:=True
End With
LG Sabbel