ActivePrinter wijzigen op basis van cell waarde

[ronald1986]

Goedemiddag,

Ik heb een vraag over het wijzigen van de actieve printer middels een macro.

Ik heb in mijn macro onderstaande regel staan:

Application.ActivePrinter = "Epson_2500_dept on Ne02:"

Nou wil ik graag dat i.p.v. "Epson_2500_dept on Ne02:" de printer wordt gekozen waarvan de naam staat in cell A1 op Blad1. Weet iemand hoe ik dat in deze code aangeef?

Alvast bedankt!
Mvg, Ronald Buikema

 

[HSV]

Zou dit werken?

Application.ActivePrinter = sheets("blad1").range("a1").value

 

[ronald1986]

Als ik dit probeer krijg ik de melding:

"Fout 1004 tijdens uitvoering
Methode ActivePrinter van object _Application is mislukt"

Is er nog een andere oplossing?

 

[HSV]

Neem met de macrorecorder de procedure op.
In de code komt dan de goede naam van de printer.

Zet dit in cel A1 en probeer het nog een keer met de gegeven code.

 

[edmoor]

Zou prima moeten werken.
Wata heb je precies in A1 op Blad1 staan?

 

[ronald1986]

Heb inmiddels het probleem gevonden. Ik haalde met een andere macro de printernaam op. Deze haalde bv. deze naam op: "PR250176 on Ne01:"
Deze naam kwam in cel A1 te staan en wilde ik gebruiken om de ActivePrinter te wijzigen. Hier kreeg ik echter constant de foutmelding op.

Ik kwam er nu achter dat VBA de Nederlandse omschrijving nodig heeft. D.w.z. dat er "PR250176 op Ne01:" moet staan in cel A1. Dus het woordje "on" moest vervangen worden door "op".

Dit nu gewijzigd en nu werkt het prima.

Allen in ieder geval bedankt voor het meedenken!

Mvg, Ronald Buikema