ON ERROR mehrmals hintereinander geht nicht
17.11.2003 09:09:55
ray
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