Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

interne Druckerports

interne Druckerports
AgeO
Guten Morgen!
Dieser Code listet die vorhandenen Drucker auf, wie sie bei der Auswahl angezeigt werden. Um jedoch per VBA den Drucker wechseln zu können, brauche ich noch den internen Druckerport NE00 - ... . Kann mir bitte jemand die Zeilen ergänzen um diese Bezeichnungen auszulesen? Danke im voraus!
AgeO
Sub Druckerauslesen()
Dim lngItem As Long
Dim objWSHNetwork As Object
Dim objWSHCollection As Object
Set objWSHNetwork = CreateObject("WScript.Network")
Set objWSHCollection = objWSHNetwork.EnumPrinterConnections
For lngItem = 0 To objWSHCollection.Count - 1 Step 2
ActiveCell = objWSHCollection(lngItem + 1) & " auf " & objWSHCollection(lngItem)
ActiveCell.Offset(1, 0).Select
Next lngItem
Set objWSHCollection = Nothing
Set objWSHNetwork = Nothing
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
interne Druckerports
20.01.2011 10:05:12
Anton
Hallo AgeO,
hier
mfg Anton
AW: interne Druckerports
20.01.2011 11:06:12
AgeO
Danke Anton!
Ich hatte im Archiv gesucht, aber offensichtlich nicht gründlich genug.
MfG AgeO
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige