Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: DMDET am Dezember 23, 2016, 13:19:35 Nachmittag

Titel: Office 2010: Im VBA die Netzwerkadresse Nr. (Ne Nr) ändern
Beitrag von: DMDET am Dezember 23, 2016, 13:19:35 Nachmittag
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!
Titel: Antw:Office 2010: Im VBA die Netzwerkadresse Nr. (Ne Nr) ändern
Beitrag von: maninweb am Dezember 24, 2016, 11:21:39 Vormittag
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 (http://www.excel-ticker.de/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ß

Titel: Antw:Office 2010: Im VBA die Netzwerkadresse Nr. (Ne Nr) ändern
Beitrag von: DMDET am Dezember 27, 2016, 11:36:44 Vormittag
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!
Titel: Antw:Office 2010: Im VBA die Netzwerkadresse Nr. (Ne Nr) ändern
Beitrag von: maninweb am Dezember 27, 2016, 11:50:31 Vormittag
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ß
Titel: Antw:Office 2010: Im VBA die Netzwerkadresse Nr. (Ne Nr) ändern
Beitrag von: DMDET am Dezember 29, 2016, 07:35:23 Vormittag
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!!!
Titel: Antw:Office 2010: Im VBA die Netzwerkadresse Nr. (Ne Nr) ändern
Beitrag von: maninweb am Dezember 29, 2016, 10:26:46 Vormittag
Hallo,

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

Gruß
Titel: Antw:Office 2010: Im VBA die Netzwerkadresse Nr. (Ne Nr) ändern
Beitrag von: DMDET am Dezember 30, 2016, 13:45:37 Nachmittag
Hallo,
an bei die Datei!

Vielen Dank!!!

Gruß
Michael
Titel: Antw:Office 2010: Im VBA die Netzwerkadresse Nr. (Ne Nr) ändern
Beitrag von: maninweb am Dezember 31, 2016, 09:37:27 Vormittag
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ß

Titel: Antw:Office 2010: Im VBA die Netzwerkadresse Nr. (Ne Nr) ändern
Beitrag von: DMDET am Januar 01, 2017, 21:03:39 Nachmittag
Hallo,
Super! Hat super geklappt! Vielen Dank für die Hilfe!!!

Gruß