Private Sub cmdPrint_Click()
  On Error Goto PrintError
 
  <font color=green>' ListView drucken</font>
  ...
  Exit Sub
 
PrintError:
  If MsgBox("Fehler beim Drucken" & vbCrLf & _
    "Bitte prüfen, ob Drucker eingeschaltet und Papier eingelegt ist!", _
    vbCritical + vbOKCancel) = vbOK Then Resume Next
End Sub