change default printer

[dlee]

I have an application that runs word in batch, and I want to change the
printer to use a duplex printer. Print the report, and change the printer
back to the default printer.

I created this template, which resides in templates directory, with a
shortcut residing in C:\Documents and Settings\Darrell Lee\Application
Data\Microsoft\Word\STARTUP

I have macros autoexec and autoclose in the template as shown below, but it
doesn't seem to be working. I could use some help.

Sub AutoExec()
'
' AutoExec Macro
' change to duplex printer
'
ActivePrinter = "\\swbc-pdw\Aficio2045-ELIC"
End Sub
Sub AutoClose()
'
' AutoExec Macro
' change back to original default printer
'
ActivePrinter = "\\swbc-pdw\LM410-ELIC"
End Sub

 

[Doug Robbins - Word MVP]

See the article "Changing the selected (current) printer in Word without
changing the system default printer" at:

http://www.word.mvps.org/FAQs/MacrosVBA/ChangeCurPrinter.htm


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP