Alle installierten Drucker ermitteln (.NET) Hier wird gezeigt, wie sich alle im System installierten Drucker ermitteln und in sortierter Reihenfolge in einer ComboBox zur Auswahl anzeigen lassen.
Autor:   Dieter Otter	Bewertung:	Views:  27.765
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit nachfolgendem Code lassen sich alle im System installierten Drucker ermitteln und zur Auswahl in einer ComboBox anzeigen:

Imports System.Drawing.Printing
...

' alle installierten Drucker ermitteln und 
' in einer ComboBox zur Auswahl anzeigen
For Each sPrinter As String In PrinterSettings.InstalledPrinters
  ComboBox1.Items.Add(sPrinter)
Next 

Soll die Auswahl der Drucker alphabetisch sortiert werden, können Sie ComboBox-Eigenschaft "Sorted" auf True festlegen oder alternativ die Drucker zunächst in ein ArrayList-Objekt einlesen, dieses sortieren und anschließend "auswerten".

' alle installierten Drucker ermitteln und 
' in in ein ArrayList-Objekt speichern
Dim sPrinters As New ArrayList
For Each sPrinter As String In PrinterSettings.InstalledPrinters
  sPrinters.Add(sPrinter)
Next 
 
' Array sortieren
sPrinters.Sort()
 
' jetzt alle Drucker in sortierter Reihenfolge in einer
' ComboBox zur Auswahl anbieten
For i As Integer = 0 To sPrinters.Count - 1
  ComboBox1.Items.Add(sPrinters(i))
Next 

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.