Changing Default Printer

[Peter]

Hi

I know that it's possible to change default printer using
the VBA application.activeprinter command, but does anyone
know any code to bring up the printers pane (i.e. the one
you can get by choosing Start - Settings - Printers under
W2K)? In a situation where you can roam around different
offices I would like users to be able to see all the
printers they have defined previously and select the one
they would like to define as default for a given day and
location. My intention is to make this pop up as an
autpen macro within the word normal template for 2
reasons - firstly to allow users to see the printers
available and also as a reminder to them to select the
correct printer so that their documents aren't being
printed at their previous location.

Thanks in advance for any postings.

Peter
..

 

[haroldk]

Could you not use Word's builtin Set Printer dialog.
Actually, when you change the activeprinter in Word it makes it the system
default printer

You could use something like this on the open event
Private Sub Document_Open()
Application.Dialogs(wdDialogFilePrintSetup).Show

End Sub
Harold

 

[Peter Hewett]

Hi Peter

Check out the following link:

Changing the selected (current) printer in Word without changing the system default
printer
http://www.word.mvps.org/faqs/macrosvba/ChangeCurPrinter.htm

HTH + Cheers - Peter