Hallo!
Habe mit folgenden Teil eines Macros ein Problem!
Ich habe ein "On Error GoTo" eingbaut für den Fall dass der Drucker nicht bereit ist. Das funktioniert auch gut aber die MsgBox erscheint auch wenn ich bei den Abfragen mit nein bestätige, das bräuchte ich aber nicht wenn ich sowiso nicht drucke. Was mache ich da falsch?
Bitte um Eure Hilfe!
'Druckauftrag JA oder nein NEIN laut INI B37 1= JA / 0= NEIN
If strDruckAL = 1 Then
'Druck des Instandsetzungsauftrages mit Schärfpreis oder eines Lieferscheines ohne Schärfpreises
Dim intDruckAuftrag As Integer
Dim intDruckLieferschein As Integer
Dim intDruckLieferschein1 As Integer
intDruckAuftrag = MsgBox("Soll ein INSTANDSETZUNGSAUFTRAG mit SCHÄRFPREISEN erstellt werden? ", vbYesNo + vbQuestion)
'Druck Instandsetzungsauftrag = NEIN und Abfrage Lieferschein
If intDruckAuftrag = vbNo Then
intDruckLieferschein = MsgBox("Soll ein LIEFERSCHEIN ohne SCHÄRFPREISE erstellt werden? ", vbYesNo + vbQuestion)
If intDruckLieferschein = vbYes Then
Sheets("Lieferschein").Select
On Error GoTo drucken_nicht_möglich
ActiveWindow.SelectedSheets.PrintOut Copies:=(strDruckAnzahlLieferschein), Collate:=True 'dein Druckbefehl
On Error GoTo 0
If intDruckLieferschein = vbNo Then
End If
End If
End If
'Duck Auftrag und Abfrage für Lieferschen
If intDruckAuftrag = vbYes Then
intDruckLieferschein1 = MsgBox("Soll auch ein LIEFERSCHEIN ohne SCHÄRFPREISE erstellt werden? ", vbYesNo + vbQuestion)
If intDruckLieferschein1 = vbYes Then
Sheets("Lieferschein").Select
On Error GoTo drucken_nicht_möglich
ActiveWindow.SelectedSheets.PrintOut Copies:=(strDruckAnzahlLieferschein), Collate:=True
Sheets("Instandsetzungsauftrag").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=(strDruckAnzahlAuftrag), Collate:=True
On Error GoTo 0
If intDruckLieferschein1 = vbNo Then
Sheets("Instandsetzungsauftrag").Select
On Error GoTo drucken_nicht_möglich
ActiveWindow.SelectedSheets.PrintOut Copies:=(strDruckAnzahlAuftrag), Collate:=True
On Error GoTo 0
End If
End If
End If
drucken_nicht_möglich:
MsgBox "Drucken zur Zeit leider nicht möglich! Prüfe bitte den Drucker!"
End If
Gruss und Dank
Schallbach