use the application.ActivePrinters

s = Application.ActivePrinter
msgbox s

will show you the format you need.

select each printer, then run the above code to see what the string is.

then use that string to assign the printer to Application.ActivePrinter

--
Regards,
Tom Ogilvy


"Matos" wrote in message
oups.com...
I create an Worksheet Excel and y create three fuction bottoms:
Two Bottoms choosing diferent printers, and a third bottom choose
printing one page of an specific range.
My problem is select beetween diferent printers, using vba codes....

1 Bottom HP 2230
1 Bottom HP 4L
1 Bottom 1 Page printing

Thanks.