Define Printer In Document Template

[Guest]

Hello

I've created a company letterhead Word template with our logo in the header and contact information in the footer. Since this needs to be printed in color to a specific network printer I was wondering if there is any way to add some code into the document or a macro that will choose the printer. We have a relatively small office, and we want all users to be forced to print this document to the color laser printer whenever they open the template. We do NOT want to change their default Windows printer, just force them to print this template to a specific printer. I'm sure there is a way to do this, but I've never done it before

Thanks
Thomas Dietric
(e-mail address removed)

 

[Graham Mayor]

One way would be to add a floating toolbar to the document template carrying
the macro:

Sub ColourPrint()
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
ActivePrinter = "Put the name of your printer here"
'get printer name from control panel - printers
Application.PrintOut FileName:=""
ActivePrinter = sCurrentPrinter
End Sub

Clicking the button will print to the colour printer and return focus to the
default printer.
See http://www.gmayor.com/installing_macro.htm


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

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