VB 5/6-Tipp 0033: Alle installierten Drucker auslesen
von ActiveVB
Beschreibung
Um eine Liste aller auf einem Rechner angeschlossenen Ducker zu erhalten reicht es aus das Printer-Objekt auszulesen.
Schwierigkeitsgrad: | Verwendete API-Aufrufe: keine | Download: |
'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-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
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