Rubrik: Drucker | VB-Versionen: VB2005, VB2008 | 31.03.09 |
Prüfen, ob ein Drucker installiert ist Eine Funktion die prüft, ob mind. 1 Drucker installiert ist. | ||
Autor: Dieter Otter | Bewertung: | Views: 10.604 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit nachfolgender Funktion lässt sich prüfen, ob mind. 1 Drucker auf dem System installiert ist:
''' <summary> ''' Prüft, ob auf dem System ein Drucker installiert ist. ''' </summary> ''' <returns>True, wenn mind. 1 Drucker installiert ist, andernfalls False.</returns> Public Function IsPrinterInstalled() As Boolean Try With System.Drawing.Printing.PrinterSettings.InstalledPrinters Return (.Count > 0) End With Catch ex As Exception Return False End Try End Function
Aufrufbeispiel:
If Not IsPrinterInstalled() Then MsgBox("Keine Druckerinformationen verfügbar!", MsgBoxStyle.Exclamation) End If