MsgBox bei Fehlermeldung!
Lisa
Mitunter ist kein Standarddrucker festgelegt und dann bleibt die Schleife mit einer Fehlermeldung hängen.
diese Meldung versuche ich mit einer MSGBOX abzufangen, leider wird die MSGBox auch angezeigt wenn erfolgreich gedruckt wurde. Wie genau muss ich die MSGBox positionieren, um sie nur bei einer Fehlermeldung anzeigen zu lassen.
Vielleicht ist es auch möglich aus der MSGBox in den Ordner Drucker und Faxgräte abzuspringen den Drucker festzulegen und dann auszudrucken!
Hier mein bisheriges Versuchsmodell!
Private Sub CommandButton1_Click()
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
Next sh
Sheets("Start").Visible = False
Sheets("Tabelle1").Visible = False
Sheets("Tabelle2").Visible = False
Dim lngAus As Long, wks As Worksheet
For Each wks In Worksheets
lngAus = wks.Visible
'If Not'
If lngAus = xlSheetVisible Then
With wks
.Visible = xlSheetVisible
On Error GoTo fehlerbehandlung
.PrintOut
End With
End If
Next
Unload Me
Mailversand.Show
fehlerbehandlung:
MsgBox "bitte den Standarddrucker festlegen" 'soll nur angezeigt werden, wenn aus _
irgendeinem Grund nicht gedruckt werden kann!
On Error Resume Next 'evtl. Drucker und Faxgräte öffnen _
lassen und nach festlegung des Standarddruckers die Druckschleife noch einmal anschieben!
End Sub
Hat jemand eine Idee dazu und kann mir hierbei behilflich sein?LG Lisa