Oops! By 'below' I meant in the revised macro
Private Sub Document_New()
Dim sCurrentPrinter As String
sCurrentPrinter = Application.ActivePrinter
ActivePrinter = "\\OKKC405\IT_PS.PRINTERS"
With Options
.DefaultTray = "Tray 2"
End With
MsgBox Options.DefaultTray
'Application.PrintOut FileName:=""
With Options
.DefaultTray = "Use printer settings"
End With
ActivePrinter = sCurrentPrinter
End Sub
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
Graham Mayor wrote:
What does the Message Box (below) report?
If, as I suspect, it says Tray 2 - is there a Tray 2 associated with
this printer or is it called something else?
Try setting the tray assignment in the document's page setup (with the
required printer active).
AJ wrote:
I am trying to use a macro on my mail merge template(Word2003) to set
a specific print tray. I am calling the merge from access2003 and
then am printing out the new merged document from a module in access.
I am unsuccessful in trying to add a macro I found
(www.gmayor.com/fax_from_word.htm) to place on my template so each
document will print to a different tray. I don't know if I am doing
something wrong or am missing something. I am able to run it from
Word and it will switch the printer but not switch the tray. Then
when I call the whole thing into Access it will switch printers but
not print trays.I have placed the code on the mail merge template
itself in the Document New, because to my limited knowledge this code
is suppose to carry over to the merged documents.Is that true? I have
the code below to view.Thank you ahead for any help.
Private Sub Document_New()
Dim sCurrentPrinter As String
sCurrentPrinter = Application.ActivePrinter
ActivePrinter = "\\OKKC405\IT_PS.PRINTERS"
With Options
.DefaultTray = "Tray 2"
End With
Application.PrintOut FileName:=""
With Options
.DefaultTray = "Use printer settings"
End With
ActivePrinter = sCurrentPrinter
End Sub