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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top