Selecting print trays for multiple page documents

X

Xanbaby

Hope I can explain this clearly.

I am using a program that operates on a Mail Merge basis. The master
document has 2 sub documents that are always pulled into the document, so
that when requested, 3 pages are printed. I need a way to lock each page
into always printing to a particular paper tray, in the above instance, Page
1 to tray 2, Page 2 to Tray 2, page 3 to Tray 3. Any assistance I can get
to this would be greatly appreciated.
 
D

Doug Robbins - Word MVP

You could look at the following:

Controlling the Printer from Word VBA
Part 1: Using VBA to Select the Paper Tray
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=101

However, I think that the easiest thing for you to do would be to install
additional copies of the printer, giving them names of Page1, Page2 and
Page3 and then execute the merge to a new document and then use the
following macro to do the printing:

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
With Dialogs(wdDialogFilePrintSetup)
.Printer = "Page1"
.DoNotSetAsSysDefault = True
.Execute
End With
.PrintOut Range:=wdPrintFromTo, From:="p1s" & i, To:="p1s" & i
With Dialogs(wdDialogFilePrintSetup)
.Printer = "Page2"
.DoNotSetAsSysDefault = True
.Execute
End With
.PrintOut Range:=wdPrintFromTo, From:="p2s" & i, To:="p2s" & i
With Dialogs(wdDialogFilePrintSetup)
.Printer = "Page3"
.DoNotSetAsSysDefault = True
.Execute
End With
.PrintOut Range:=wdPrintFromTo, From:="p3s" & i, To:="p3s" & i
Next i
End With





--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
 
Top