Re: Printing Alternate Pages



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?


.