ActivePrinter
13.05.2009 09:11:00
MAS
mit dieser Routine ermittle ich, alle Drucker eines Users
Public Sub Drucker_ports_auslesen()
Dim WSHNetwork As Object
Dim Alle_Drucker
Dim i As Integer
Set WSHNetwork = CreateObject("WScript.Network")
Set Alle_Drucker = WSHNetwork.EnumPrinterConnections
Dim j
Sheets("Drucker").Cells.Clear
j = 1
For i = 0 To Alle_Drucker.Count - 1 Step 2
Sheets("Drucker").Range("A" & j).Value = Alle_Drucker.Item(i + 1)
j = j + 1
Debug.Print Alle_Drucker.Item(i + 1)
Next
End Sub
Habe da unter anderem einen PDF Drucker dabei, der wie folgt gelistet wird
FreePDF XP
Wenn ich diesen Drucker manuell als Standarddrucker setze und mit
Debug.Print Application.ActivePrinter
zeigt das Ergebnis einen
FreePDF XP auf NE08:
wobei die Nummer bei jedem User anders ist.
Ich möchte eigentlich
ActivePrinter = 'FreePDF XP'
setzen, was aber zu Fehlermeldungen führt.
So würde es gehen
ActivePrinter = FreePDF XP auf NE08:
wie kann ich die Nummer ermitteln und woher kommt die?
Viele Grüsse