Office 2010: Im VBA die Netzwerkadresse Nr. (Ne Nr) ändern

[DMDET]

Hallo,
bei mir ändert sich ab und zu die Ne Nr. vom Netzwerkdrucker! Kann ich die Nummer selber ändern ohne das die Datei an zu passen?

Danke im Voraus für die Eure Hilfe!

[maninweb]

Hallo,

nicht direkt. Du kannst die Drucker per Windows API abfragen und ggf. z.B. als Auswahlfeld anbieten. Wie sowas geht,
steht z.B. in diesem Artikel Drucker und Papierformate in VBA ermitteln und verwenden. Der Artikel ist aus 2009, d.h.
ggf. musst Du den API-Deklarationen einen PtrSafe hinzufügen.

Gruß

[DMDET]

OK! Aber ich stelle fest mit meinem VBA Anfängerwissen ist es für mich zu hoch!
Gibt es eine einfachere Lösung? Ich brauch nur die Ne Änderung des Druckers. Weil sich bei mir die NE Nummer sich manchmal ändert und ich dann das ganze Programm ändern muss!

[maninweb]

Hallo,

Ok. Du hast doch sicherlich irgendwo im Code "Drucker... auf NeXX..." drin stehen. Falls das als Text in der Anweisung drinsteht, könntest Du
den Teil "NeXX" insoweit separieren, dass Du diesen in eine Variable oder Konstante ablegst: "Drucker... auf" & Variablename & "...". Die Variable
könntest Du dann z.B. aus einer Zelle auslesen und somit stünde Dir eine zentrale Änderungsmöglichkeit zur Verfügung.

Gruß

[DMDET]

Hallo,
ja das wäre eine Lösung! Blos jetzt stehe ich vor einem anderen Problem!

Wie programiert man so eine Variable?

Mein Druckerbefehl ist:
Application.ActivePrinter = "HP M3035 - A4 auf Ne07:"

Kannst Du mir da weiter helfen?

Vielen Dank im voraus!!!

[maninweb]

Hallo,

um da sinnvoll helfen zu können, müsste ich mindestens die vollständige Prozedur sehen,
besser sogar noch eine anonymisierte Datei.

Gruß

[DMDET]

Hallo,
an bei die Datei!

Vielen Dank!!!

Gruß
Michael

[maninweb]

Hallo,

ersetze mal in Deinem Code diese Zeile...

Code: Visual Basic

1. Application.ActivePrinter = "HP M3035 - A4 auf Ne07:"

durch diese Zeile...

Code: Visual Basic

1. Application.ActivePrinter = "HP M3035 - A4 auf " & Range("A1").Value & ":"

Hierbei wird angeommen, dass Ne07 in der Zelle A1 des aktiven Tabellenblatts steht, was der übrige Code auch tut.
Wenn Du eine andere Zelle, z.B. Z1 verwenden möchtest, dann ändere "A1" in "Z1".

Gruß

[DMDET]

Hallo,
Super! Hat super geklappt! Vielen Dank für die Hilfe!!!

Gruß