Rubrik: Drucker | VB-Versionen: VB4, VB5, VB6 | 19.02.01 |
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: | Views: 16.818 |
www.vbwelt.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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