View Single Post
  #3   Report Post  
Posted to microsoft.public.word.docmanagement
Graham Mayor
 
Posts: n/a
Default MS Word to use default printer, not most recently used printer

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.