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
Word MVP web site
http://word.mvps.org
Sandy wrote:
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.