Office: Standarddrucker setzen

Folgende Problematik:

Ich lese alle installierten Drucker aus. Name und Port werden in einer Liste abgelegt. Wie kann ich einen der ausgelesenen Druckernamen als Standarddrucker zuweisen?

DAnke

:)

 

Hallo, dbaaxel,

ActiverPrinter und Zuweisung sollte es tun:

Code:

Gruß,
LS

 

HI ,

aber das funktioniert nur wenn ich einen echten lokalen Drucker setze. Da kommt beim Auslesen auch der LPT1 zurück. Aber bei Netzwerkdruckern oder z.B. beim PDF Writer müssen irgendwelche NE00 oder NE01 als Port angegeben werden. Diese Ports erhalte ich nämlich wenn ich den z.B. den Netzwerkdrucker als Standard einrichte und mir anschließend ActivePrinter ausgeben lasse.

Wie komme ich an diese NE... Ports oder was auch immer ran?

 

Hallo dbaaxel,

also bei mir sah das analog aus zu jinx´s Codezeile nur eben mit Ne..

Application.ActivePrinter = "HP LaserJet 4000 Series PCL 6 auf Ne00:"

oder so z.B.

Application.ActivePrinter = "\\Druckerserver\HP4000_Raum0815 auf Ne02:"

 

Aber wie komm ich an den entsprechenden NE Port ran? Beim auslesen kommt z.B. beim Netzdrucker die IP mit. Damit kann ich aber keinen neuen Drucker setzen. Das gibt Mecker im Excel :-).

 

Hallo dbaaxel,
eine kleine Anrede und ein Gruß zum Ende sind doch gleich viel freundlicher, denkst Du nicht auch? Soviel Zeit muss sein!

Auch wenn ich sie nicht kenne, Deine Liste scheint ja offenkundig nicht von Nutzen zu sein.

Schau mal bei den Schwimmers vorbei und lade Dir unter Punkt 9 die Beispieldatei runter. Dort wird eine Liste mit "Ne.." Bezeichnungen ausgegeben, so wie sie oben im Code Anwendung findet.

 

Hallo Woody,

entschuldige erstmal das ich vorhin hier einfach so ringepoltert bin.
Vielen Dank für den Link. Der ist für mich echt Gold wert.

So und damit der Form genüge getan wird:

Gruß Axel :-)

 

Hi Woody,

hab gestern abend das ganze erfolgreich getestet. Wenn ich die Module in ein neuangelegtes Projekt(Excel 2003) einbinde funktioniert es wunderbar. Binde ich die Module in ein älteres Projekt ein (glaube mit 2002 erstellt) kommt der Fehler zurück Projekt oder Bibliothek nicht gefunden. Es ist alles exakt so eingebunden wie in dem neuangelegten Projekt.

Danke schon mal für alle Anfregungen

 

Hallo dbaaxel,

danke für Dein Feedback. Schön das es läuft, wenn auch nur in einer neuen Datei.