Tipp 0046 Installierte Drucker ermitteln
Autor/Einsender:
Datum:
  Detlev Schubert
29.04.2001
Entwicklungsumgebung:   VB 5
Um die im System installierten Drucker zu ermitteln, stellt VB mit dem Printer-Objekt alle notwendigen Möglichkeiten zur Verfügung. Die Funktion Printers.Count liefert die Anzahl der installierten Drucker, die anschließend mit Printers(index).DeviceName aufgelistet werden können.
 
Option Explicit

Private Sub InstallierteDrucker()
  Dim x As Integer
  Dim AnzDrucker As Long

  List1.Clear
  AnzDrucker = Printers.Count
  If AnzDrucker = 0 Then
    List1.AddItem "Kein Drucker installiert."
  Else
    For x = 0 To AnzDrucker - 1
      List1.AddItem Printers(x).DeviceName
    Next
  End If
End Sub

Private Sub Command1_Click()
  Call InstallierteDrucker
End Sub
 
Weitere Links zum Thema
Papierfächer des Druckers auslesen
Papierfächer des aktiven Druckers auslesen (Word/VBA)

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2 kB) Downloads bisher: [ 2043 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Montag, 29. August 2011