Prüfen, ob ein Drucker installiert ist II Dieser Tipp zeight, wie Sie mittels der Printer.Count-Eigenschaft feststellen, ob ein Drucker installiert ist oder nicht.
Autor:   Wolfgang Kluge	Bewertung:     [ Jetzt bewerten ]	Views:  17.411
www.vbwelt.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 16 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 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 isPrinterAvailable() As Boolean
  isPrinterAvailable = (Printers.Count>0)
End Function
 
' Beispiel
Dim Msg As String
If Not isPrinterAvailable() Then
  Msg = "Keine Druckerinformationen verfügbar."
  MsgBox Msg, 16
End If