How combine report with new page numbering

I have a database that has 4 different multi-page reports.  Now I have a need to combine them into one report running one after the other, in a special sequence of course, but with the first page of the combined report being page 1 of x, the next page being page 2 of x, and so forth.

But each of the individual report already have this page numbering which somehow has to be ignored.

Is this possible?  If so, how?
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Gustav BrockCIOCommented:
Have a small function:
Public Function PageNumber(Optional Byval Page As Integer = -1) As Integer

    Static NextNumber As Integer

    If Page = -1 Then
        ' Return next page number.
        NextNumber = NextNumber + 1
        PageNumber = NextNumber
        ' Set last page number.
        NextNumber = Page
    End If

End Function

Open in new window

Run this command before you open the first report to reset the page number:

    PageNumber 0

In your reports, insert this code:
Private Sub Report_Open(Cancel As Integer)
    Me.Page = PageNumber()
End Sub

Private Sub Report_Unload(Cancel As Integer)
    PageNumber Me.Page
End Sub

Open in new window


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Jim Dettman (Microsoft MVP/ EE MVE)President / OwnerCommented:
Nice solution gustav!  Always thinking outside of the box.

I looked at this yesterday and drew a blank :(  (well not quite, but not as simple as yours).

Gustav BrockCIOCommented:
Actually, I was convinced Me.Page was read-only. But it was easy to try if it really was.

SteveL13Author Commented:
Absolutely perfect.  Thank you!
Gustav BrockCIOCommented:
You are welcome!

It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.