Print all open database objects

[kledki]

I need two reports to print at the same time. Repor1 is always the same. There is a button on Report1 that when pressed will open one of several other reports based on the value entered in one of the controls on Reprt1. This report becomes Report2, the second report that I need to print. Basically Report1 is a given and Report2 is a variable that changes from record to record. Once they are both open, I would like to be able to print both of the reports at once so that the user doesn't have to print them both separately. What is the best way to achieve this? Can I program it into my existing button? Thanks.

[twinnyfo]

When you open your report, the acViewNormal property causes the report to be sent to your default printer with the printer’s default settings.

Hope this hepps.

[ADezii]

1. The way that I interpret your Request is that you need two things to happen prior to actually Printing the Reports:
   1. You need to make sure that at least two Reports are 'Open'.
   2. If at least two Reports are 'Open', then you need to make sure that they are the correct ones to Print.
   3. Once the previous conditions are met, then Print both Reports.
2. These things can easily be accomplished by looking at the Reports Collection as well as using a couple of Boolean Variables.
3. The following Code should accomplish what you have requested. For the purposes of this Demo, I named the Reports Shippers and Suppliers.
4. Code Definition:
   

   Dim rpt As Access.Report
   Dim blnShippersFound As Boolean
   Dim blnSuppliersFound As Boolean
    
   'Need at least 2 Reports Open
   If Application.Reports.Count < 2 Then Exit Sub
    
   For Each rpt In Application.Reports
     Select Case rpt.Name
       Case "Shippers"
         blnShippersFound = True
       Case "Suppliers"
         blnSuppliersFound = True
       Case Else   'don't really care
     End Select
   Next
    
   'Both need to be Opened
   If (blnShippersFound And blnSuppliersFound) Then
     With DoCmd
       .OpenReport "Shippers", acViewNormal
       .OpenReport "Suppliers", acViewNormal
     End With
   End If