Toolbar button for specific printer

[Wowbagger]

Can I have more than one print button on the toolbar, where each print
button will use a different printer?

 

[TF]

Yes.

--
Terry Farrell - Word MVP
http://www.mvps.org/word/

"Wowbagger" <none> wrote in message
Can I have more than one print button on the toolbar, where each print
button will use a different printer?

 

[Graham Mayor]

You need the following bit of macro code for each printer - this one's for
fax. For others you'll need to change the first ActivePrinter to that of
your target printer and of course the macro name. Create a custom toolbar
and add the macros to it. See http://www.gmayor.com/installing_macro.htm

Sub FaxPrint()
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
ActivePrinter = "Fax"
Application.PrintOut FileName:=""
ActivePrinter = sCurrentPrinter
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>
Graham Mayor - Word MVP
E-mail (e-mail address removed)
Web site www.gmayor.com
Word MVP web site www.mvps.org/word
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>

 

[Wowbagger]

Thanks

You need the following bit of macro code for each printer - this one's for
fax. For others you'll need to change the first ActivePrinter to that of
your target printer and of course the macro name. Create a custom toolbar
and add the macros to it. See http://www.gmayor.com/installing_macro.htm

Sub FaxPrint()
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
ActivePrinter = "Fax"
Application.PrintOut FileName:=""
ActivePrinter = sCurrentPrinter
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>
Graham Mayor - Word MVP
E-mail (e-mail address removed)
Web site www.gmayor.com
Word MVP web site www.mvps.org/word
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>