Rubrik: Drucker | VB-Versionen: VB4, VB5, VB6 | 01.11.00 |
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: | Views: 24.170 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, 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 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