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

  • Thread starter Thread starter Guest
  • Start date Start date
G

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.
 
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.
 
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

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top