vertaling van marco tekst

[tobi-wan]

Hoi ,

Ik heb in een excel document voor mijzelf en enkele collega's een print button gemaakt om te printen naar een PDF document.

Alleen mijn windows werkt met Nederlands en enkele collega's gebruiken de Amerikaanse versie.
Nou gaat mijn Macro de mist in op 1 woordje "op" is in het Engels "on"

Application.ActivePrinter = "CutePDF Writer op CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer op CPW2:", Collate:=True
Weet iemand of hier een oplossing voor is?


Tobi

 

[Hans123]

De landinstelling kun je opvragen met

landinstelling = Application.International(xlCountryCode)

Indien de landinstelling 31 (=nederland) is moet je 'op' gebruiken anders 'on'

 

[tobi-wan]

Hans,

bedankt voor de info.
Alleen kan ik dan nog steeds mijn file niet uitgeven aan mijn collega's met de Amerikaanse versie daar zal hij niet werken.
Weet je of er een oplossing is om beide talen in één Macro te bouwen, of is er een mogelijkheid om een controle in te bouwen die de tekst automatisch aanpast

Groeten Tobi

 

[Hans123]

Je zou dit er dan van moeten maken:

landinstelling = Application.International(xlCountryCode)

if landinstelling= 31 then
Application.ActivePrinter = "CutePDF Writer op CPW2:"
else
Application.ActivePrinter = "CutePDF Writer on CPW2:"
end if

ActiveWindow.SelectedSheets.PrintOut

 

[tobi-wan]

Hans,

Bedankt dat werkt perfect.
Langzaamaan begin ik steeds meer te leren van VBA.

Groeten

Tobi