If this is a merged letter document then if the merge source document had a
different first page tray setting in page setup then that information should
be retained, but the printer will probably require you to send each letter
as a separate print job. Fellow MVP Doug Robbins has produced a macro for
this which you will find listed under the heading Split a merged document to
the printer with each 'letter' treated as a separate print task at
http://www.gmayor.com/individual_merge_letters.htm
For other documents, the following macro should work. Note that the tray ID
numbers are printer specific. See
http://www.gmayor.com/fax_from_word.htm
which explains how to establish the tray ID numbers for your printer -
replace the tray IDs in the following macro as necessary:
Sub TwoTrays()
Dim sTray As Integer
sTray = Options.DefaultTrayID
Dim sPage As Long
With ActiveDocument
Selection.EndKey wdStory
For i = 1 To Selection.Information(wdActiveEndPageNumber)
sPage = i Mod 2
If sPage = 1 Then
Options.DefaultTrayID = 261 'Set the odd page trayID number here
Else
Options.DefaultTrayID = 260 'Set the even page trayID number
here
End If
ActiveDocument.PrintOut _
Range:=wdPrintRangeOfPages, _
Pages:=format(i), _
Copies:=1
Next i
Options.DefaultTrayID = sTray
End With
End Sub
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
Joe Perfiry wrote:
I have a large document (296 pages) and I want to print every other
page on to headed paper. So page 1 goes to one cassette page 2 to
another and this repeats etc. Is this possible and how?