![]() |
|
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
|
|
|
|
|
|
|
| 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: [ 2057 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 