Befehlsreferenz - Allgemein: Printers-Eigenschaft

VB-Versionen:    VB4   |    VB5   |    VB6

Beschreibung:
Mit der Printers-Eigenschaft kann auf Informationen aller im System installierten Drucker zugegriffen werden.

Syntax:

Printers (Index)

Parameter:

Index

(Integer) Ganzzahl zwischen 0 und Printers.Count-1.

Mit der Printers-Auflistung können u.a. alle verfügbaren Drucker abgefragt werden. So lässt sich z.B. auch ein bestimmter Drucker als Standarddrucker für Ihre Anwendung definieren.

Das nachfogende Beispiel durchläuft die Printers-Auflistung und speichert alle verfügbaren Drucker zur Auswahl in einer ComboBox.

Beispiel:

' alle verfügbaren Drucker ermitteln
Dim x As Printer
For Each x In Printers
  Combo1.AddItem x.DeviceName
Next
 
' Standard-Drucker für Ihre Anwendung setzen
Private Sub Combo1_Click()
  Dim x As Integer
 
  For x = 0 To Printers.Count - 1
    If Printers(x).DeviceName = Combo1.Text Then
      Set Printer = Printers(x)
      Exit For
    End If
  Next x
End Sub