interne Druckerports
AgeO
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
Anzeige