Bevor ein Druckauftrag abgeschickt wird,
    sollte geprüft werden, ob überhaupt ein Drucker installiert.

ERFORDERLICHE OBJEKTE      

   keine
 FORM-CODE   

   Private Function PrinterInstalled() As Boolean
      On Error Resume Next
       Dim strDummy As String
       strDummy = Printer.DeviceName
       If Err.Number Then
          PrinterInstalled = False
       Else
          PrinterInstalled = True
       End If
   End Function

   Private Sub Form_Load()
      t = "ein"
      If Not PrinterInstalled Then t = "k" & t
      MsgBox "Es ist " & t & " Drucker installiert", vbExclamation
      End
   End Sub