Private Sub DoPrintJob()
  ' Fehlerbehandlung aktivieren
  On Error Goto ErrHandler
 
  ' Ausdruck starten
  Screen.MousePointer = vbHourglass
  Printer.Print "blbla"
  ...
 
  ' Ausdruck beenden
  Printer.EndDoc
  Screen.MousePointer = vbNormal
  Exit Sub
 
ErrHandler:
  MsgBox "Fehler beim Drucken!"
  Printer.KillDoc
  Screen.MousePointer = vbNormal
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de