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
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>