Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auslesen von Druckereigenschaften

Forumthread: Auslesen von Druckereigenschaften

Auslesen von Druckereigenschaften
Druckereigenschaften
Hallo alle zusammen,
gibt es eine Möglichkeit unter VBA die Geräteinformationen der Drucker auszulesen?
In der Firma habe ich das Problem, das die Netzwerkdrucker nur einen Zahlencode haben.
Und wenn etwas ausgedruckt werden soll, wäre es schön zu sehen, wo der Drucker steht.
Und dies ist halt bei den Eigenschaften eingetragen.
Für euere Hilfe danke ich euch schon im voraus.
Gruß Thomas
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Auslesen von Druckereigenschaften
14.12.2010 16:33:49
Druckereigenschaften
Hallo Thomas,
probier sowas:
Code:

Sub n()
  zeile = 1
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")  
  Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer", , 48)  
  For Each objItem In colItems  
    For Each prop In objItem.properties_  
      Cells(zeile, 1) = prop.Name
      Cells(zeile, 2) = prop.Value
      zeile = zeile + 1
    Next
    zeile = zeile + 1
  Next
End Sub  


Ob dabei auch die Informationen , die du brauchst, auch aufgelistet werden , muss du testen.
mfg Anton
Anzeige
AW: Auslesen von Druckereigenschaften
15.12.2010 08:35:22
Druckereigenschaften
Hallo Thomas,
oder so: 
Sub b()
zeile = 1
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer", , 48)
For Each objItem In colItems
Cells(zeile, 1) = "Caption"
Cells(zeile, 2) = objItem.Caption
zeile = zeile + 1
Cells(zeile, 1) = "DriverName"
Cells(zeile, 2) = objItem.DriverName
zeile = zeile + 1
Cells(zeile, 1) = "Location"
Cells(zeile, 2) = objItem.Location
zeile = zeile + 2
Next
End Sub
mfg Anton
Anzeige
AW: Auslesen von Druckereigenschaften
15.12.2010 16:05:39
Druckereigenschaften
Hallo Anton,
genau das habe ich gesucht. Habe es schon ausprobiert und es funkioniert super.
Man kann sich jetzt auch den Ort, wo der Drucker steht, mit anzeigen lassen.
Danke nochmals für den VBA-Code und deine Mühe.
Wüsche schöne Weihnachten und guten Rutsch.
Gruß Thomas
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige