Report of Multiple Reports - Microsoft Access Forum


	Back to Access Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

Report of Multiple Reports

Beau Tanner

5 years ago

Is it possible to run a report that combines all of the reports?

So, in my building record, I have nine buttons that look at various aspects of the building (Design Record, Site, Structure, Envelope, etc). Some of those buttons open up to a single page, while others open to a submenu that further divides the category. For instance, if you click on "Interior" it opens to a submenu with 8 more categories (Ceilings, walls, doors, flooring, etc). And some submenus, have submenus themselves: "Systems" opens to a submenu with 6 options; the first option (Mechanical) opens up to another submenu with 2 options (HVACR & Conveyance).

Each menu, submenu, and form all have reports associated with them. In total, there are 37 reports detailing the condition analysis of each building. Is there a way to combine all of these reports together, so that I can click 1 button to print all 37 reports together at once rather than going through each menu/submenu/form and printing all 37 individually?

	Beau Tanner OP @Reply 5 years ago

	Beau Tanner OP @Reply 5 years ago

	Beau Tanner OP @Reply 5 years ago

	Beau Tanner OP @Reply 5 years ago

	Beau Tanner OP @Reply 5 years ago

Adam Schwanz @Reply

5 years ago

Can you just make a button that prints out all the reports? Or do they need certain input on the forms?

I have a few reports that are separate and go together, like this prints out the report "package" for our warranty stuff, it prints out 3 reports at once + a word document

    DoCmd.OpenReport "WarrantyR", acViewPreview
    DoCmd.PrintOut , , , , 1
    DoCmd.Close acReport, "WarrantyR"
    DoCmd.OpenReport "WarningR", acViewPreview
    DoCmd.PrintOut , , , , 1
    DoCmd.Close acReport, "WarningR"
    DoCmd.OpenReport "SuggestedMaintenanceR", acViewPreview
    DoCmd.PrintOut , , , , 1
    DoCmd.Close acReport, "SuggestedMaintenanceR"

    Dim oWord, oDoc
    Dim X As String
    X = Nz(DLookup("CautionID", "TransTypeT", "TransType=""" & TransType & """"), "")
    If X <> "" Then
        DoCmd.Hourglass True
        Set oWord = CreateObject("Word.Application")
        Set oDoc = oWord.Documents.Open("""" & X & """")
        oWord.Visible = True
        oDoc.PrintOut

	Adam Schwanz @Reply 5 years ago
oWord.Quit Set oDoc = Nothing Set oWord = Nothing DoCmd.Hourglass False End If -hit the text limit lol

Beau Tanner OP @Reply

5 years ago

Woof!  That's a lot of coding.  Short answer is yes then, lol.

I don't want to print any word documents; I just want the Access reports.  The reports would be specific to the buildings (A building would print all the A Building reports; B Building would print all the B Building reports; C Building ad naseum).  So, I would do a...

DoCmd.OpenReport
DoCmd.PrintOut
DoCmd.Close acReport

...for all 37 reports correct?  Where in that coding do I note that I want the building ID for the report to match the building form ID?

Adam Schwanz @Reply

5 years ago

If you have reports that refer to stuff on the forms it's going to be a lot more fun, You will probably have to docmd.openform the form and then print, then close the form and the report. Sometimes you can also send it a variable, like this is one that I use too just to open a report to a certain record.

    Dim SerialInt As Integer
    SerialInt = InputBox("Enter Serial Number")

    If SerialInt = "" Then
        Exit Sub
    Else
        DoCmd.OpenReport "WarrantyPrintR", acViewPreview, , "SerialNum=" & SerialInt
    End If

You're going to have a lot of lines of code yes, I'm sure there's some way you could make a loop to go through all of your reports and print out all of them but that sounds like a lot more work than just copy/pasting 37 times and changing a little piece.

	Adam Schwanz @Reply 5 years ago
And yes, the basics of just "print this form" is just that DoCmd.OpenReport DoCmd.PrintOut DoCmd.Close acReport for each one

	Richard Rost @Reply 5 years ago
Woof, indeed!

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Forum.

Next Unseen

New Feature: Comment Live View