If you create a printers toolbar and the macros in normal.dot, you only have
to build the macros once. In this case rather than intercept the print
command simply create a command to print to the required printer with the
required settings e.g.
Sub LaserTray2()
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
ActivePrinter = "Put the name of the required printer here"
With Options
.DefaultTray = "Set the tray option here"
End With
Application.PrintOut FileName:=""
With Options
.DefaultTray = "Use printer settings"
End With
ActivePrinter = sCurrentPrinter
End Sub
My web site appears to be unavailable at the moment, and I am out of the
country until later today (13/2/2005) so will not be able to thrash my web
host company until Monday. If you can wait until then, see
http://www.gmayor.com/fax_from_word.htm for more detail on this approach.
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
Suzanne S. Barnhill wrote:
No previous version of Word can do this, either. And you don't need to
create a new macro for every document, just for each template.
"Admin Asst." wrote in message
news
Thanks Jay, I guess Microsoft just upgraded me right out of biz. I
dont want to have to build macros everytime I need to print a new
document.
Gonna try to downgrade my version of Word. Wish me luck.
"Jay Freedman" wrote:
On Fri, 11 Feb 2005 14:17:03 -0800, "Admin Asst." Admin
wrote:
My printer settings default to the next doc printed. How do I get
each doc to keep it's own printer settings in MSWORD 2003?
Sorry, that isn't something Word can do. There's no place in the
file structure to store printer settings.
If you make a separate template for each kind of document, you can
create a macro named FilePrint in each template to intercept the
Print command (and one named FilePrintDefault if you also want to
intercept the toolbar button). In that macro you can set the
printer settings
for that kind of document and then kick off the print dialog. See
http://www.word.mvps.org/FAQs/Macros...tSavePrint.htm for
information.
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org