On Error GOTO Fehler
31.03.2008 15:25:00
Schallbach
Habe ein Problem mit On Error GoTo Geschichte im folgenden Code!
If intDruckLieferschein1 = vbNo Then
Sheets("Instandsetzungsauftrag").Select
On Error GoTo drucken_nicht_möglich3
ActiveWindow.SelectedSheets.PrintOut Copies:=(strDruckAnzahlAuftrag), Collate:=True
On Error GoTo 0
drucken_nicht_möglich3:
MsgBox "Drucken zur Zeit leider nicht möglich 3! Prüfe bitte den Drucker!"
End If
Warum erscheint die MsgBox auch wenn getruckt wird, was ist da falsch?
Drucke über Netzwerkdrucker.
Bitte um Hilfe
Gruss
Schallbach
Anzeige