Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0033: Alle installierten Drucker auslesen

 von 

Beschreibung 

Um eine Liste aller auf einem Rechner angeschlossenen Ducker zu erhalten reicht es aus das Printer-Objekt auszulesen.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [1,97 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Listen-Steuerelement "List1"
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

Private Sub Form_Load()
    Dim i As Integer
    Dim PrinterName As String
    
    For i = 0 To Printers.Count - 1
        PrinterName = Printers(i).DeviceName
        PrinterName = PrinterName & " (" & Printers(i).Port & ")"
        List1.AddItem PrinterName
      
        If Printer.DeviceName = Printers(i).DeviceName Then
            Label1.Caption = "Standarddrucker: " & PrinterName
        End If
    Next i
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 4 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von Philipp Herrmann am 08.05.2009 um 22:11

Hallo,

der Standard-Drucker wird nicht korrekt ausgegeben (statt dessen wird der letzte installierte Drucker ausgegeben)!

Das liegt an der Zeile:

Label1.Caption = "Standarddrucker: " & PrinterName

Korrekt muss es heissen:

Label1.Caption = "Standarddrucker: " & Printers(i).DeviceName

Und nun viel Spaß mit dem Tipp...

Kommentar von Frank am 03.12.2008 um 08:06

Hallo zusammen,

leider funktioniert der o. g. Tipp auf VB 6.5 und Windows XP nicht.

Bekomme ständig die Fehlermeldung, dass die Row-Source-Eigenschaft auf Wertliste gesetzt werden muss.

Gibt es eine Anleitung, wie man den o. g. Quellcode verwenden kann.

Habe 25 Jahre Software-Entwicklungserfahrung unter Delphi, Cobol, Basic, VBA. Trotzdem klappt Euer Tipp nicht.

Gruß aus Essen

Kommentar von Devis am 27.12.2004 um 23:36

Hallo.

Der Code tut bei mir nicht. Ich benötige eine Liste aller Drucker in einer ComboBox in Excel Xp auf Win XP.

Please help!

Danke.
MFG
Devis

Kommentar von Wolfgang am 18.10.2001 um 10:15

Nettes Tool. Aber bei mir liest es nicht alle Drucker aus. Ich muss hierzu aber auch anmerken, daß ich ca. 70 Netzwerkdrucker installiert habe *g*.
Wie kann ich denn sooo viele Drucker auslesen?
Gruß
Wolfgang