Hallo,

Ich möchte erreichen, daß fehler übersprungen werden. Leider überspringt er in nachstehenden Code nur den ersten Fehler und debugg beim 2 Fehler in Zeile:
Application.ActivePrinter = "Canon S520 auf Ne01:"

Geht das mit on error nicht bzw gibts einen anderen Befehl? Danke, Ray

Hier mein code bisher:


On Error GoTo z1

Application.ActivePrinter = "Canon S520 auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
GoTo zdruck

z1:
MsgBox "1"
On Error GoTo z2
Application.ActivePrinter = "Canon S520 auf Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
GoTo zdruck