printing multiple copies of report with multiple pages

[mhall]

I would like to use laser ncr paper to print 4 part forms. I prefer to buy the paper in packet order (w, y, p, g) rather than all stacks of individual color and have to collate manually. I have set printer to 4 copies stacked. My problem is that when I have a 2 page document, it prints page 1 then 2, then repeats. I need it to print all 4 copies of page 1 and then 4 copies of page 2. Is there anyway to program the report to do this?

[ranman256]

Public Sub Print1RptByPage(ByVal pvRpt, ByVal piPages As Integer, ByVal piCopies As Integer)
Dim p As Integer
        'Open report in Preview mode
DoCmd.OpenReport pvRpt, acViewPreview
        
For p = 1 To piPages
            'Print out specified number of report copies
    DoCmd.PrintOut , p, p, , piCopies
Next

DoCmd.Close acReport, pvRpt, acSaveNo

End Sub

[mhall]

thanks. I'm not well versed in reading the code but it looks like what you have written requires preview mode. This actually is for our bill of lading print which runs in a batch of 10 - 15. Can it be done without the preview?

[June7]

Nope. Not if you want to control the output of page order. However, can open the report as not visible with acHidden parameter of WindowMode argument.

ranman, how is the piPages variable set? I am guessing each report will always have the same number of pages and this can be set by the code.

[ranman256]

This code is sent by user and THEY know the # pages. I thought it would speed things up to show less code.

[orange]

Here is a link (untested) that may be of use to control number of copies without PreView.

[mhall]

I appreciate the posts. As an FYI, some reports in the batch will have 1 page and others will have 2 or 3. I cannot set the number of pages in advance. It seems like I would need some if statement that determines if report is 2 pages it will print all copies of page one and then all copies of page 2. Is that possible?

[orange]

Did you look at the link I gave? You could set up a small test and see if it handles reports of different length properly.

[mhall]

Sorry, I have limited ability to read the code. I will however pass this along to the people who can adjust for me. Thanks for your assistance!

[June7]

Orange, the looping function in that article sends the report direct to printer and will print all pages collated - not what OP wants. Wants 4 copies of page 1 then 4 copies of page 2, etc.

To determine how many pages in report, review http://msdn.microsoft.com/en-us/libr...ffice.11).aspx