MS Word to use default printer, not most recently used printer

[Guest]

Is there a way to have MS Word go back to the 'default' printer
automatically. Ex: If you are working on two jobs, one goes to a printer for
envelopes and one goes to a printer for letters. If the envelope job prints
last, the next Word document to print will automatically go to the last
printer used.

Thanks in Advance.

 

[Charles Kenyon]

Word will reset to the default printer when you close it and reopen it.

Otherwise, if you have a macro that prints your envelopes to the envelope
printer, you could have that macro reset the printer. (Note, in some
versions of Word, if you use a macro to change the printer in Word, it
changes the default printer in Windows as well.)
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide


--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

 

[Graham Mayor]

The simplest way to handle this is to use an envelope template rather than
the envelope/label tool (there are samples you can download from my web
site). Then either add a print button using the method from
http://www.gmayor.com/fax_from_word.htm to print to a separate printer eg.

Sub EnvelopePrint()
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
'**********************
ActivePrinter = "Put the name of your envelope printer here"
'***********************
Application.PrintOut FileName:=""
ActivePrinter = sCurrentPrinter
End Sub


or intercept the print command in the envelope template with that code. eg

Sub FilePrint()
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
'**********************
ActivePrinter = "Put the name of your envelope printer here"
'***********************
Application.PrintOut FileName:=""
ActivePrinter = sCurrentPrinter
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>