Prüfen, ob ein Drucker installiert ist Mit der nachfolgenden Routine können Sie feststellen, ob ein Drucker auf dem aktuellen System installiert ist oder nicht.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  24.953
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 13 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit der nachfolgenden Routine können Sie feststellen, ob ein Drucker auf dem aktuellen System installiert ist oder nicht.

' Die Funktion prüft, ob ein Drucker vorhanden ist und
' gibt im Erfolgsfall True, andernfalls False zurück
Public Function CheckForPrinter() As Boolean
  Dim sName As String
 
  On Local Error Resume Next
  sName = Printer.DeviceName
  CheckForPrinter = (Err=0)
  On Local Error Goto 0
End Function
 
' Beispiel
Dim Msg As String
If Not CheckForPrinter() Then
  Msg = "Keine Druckerinformationen verfügbar." + vbCrLf
  Msg = Msg + "Stellen Sie sicher, daß der Drucker "
  Msg = Msg + "richtigt installiert ist." + vbCrLf + vbCrLf
  Msg = Msg + "Evtl. wurde noch gar kein Drucker installiert."
  MsgBox Msg, 16
End If