Printing multiple reports at one time (front to back and top to bottom)

[PhoenixFyre]

I have three reports APart1, AExSig, and APart2. Each report consist of two pages that I need to print double sided and top to bottom. Working with macros I have managed to get all three reports to open at one time and the print screen to open for each, however I then have to click properties and select double sided top to bottom to print for each. is there a way to make this all one action either through a macro or code? Thanks for the help.

[June7]

I do this with VBA. Some of our printers can duplex and some can't. Example extracted from my procedure:

    'open report in preview mode because is only way to change bin and/or printer destinations without changing report saved setup
strPrinter = Application.Printer.DeviceName
strReport = "report name here"
intView = MsgBox("View the report before printing?", vbApplicationModal + vbQuestion + vbYesNoCancel + vbDefaultButton2, "Reports")
If intView <> vbCancel Then
    DoCmd.OpenReport strReport, acViewPreview, , "Submit.LabNum='" & strLabNum & "'", acWindowNormal
    If strPrinter Like "*Konica*" Then Reports(strReport).Printer.Duplex = acPRDPSimplex
    Reports(strReport).Printer.PaperBin = acPRBNAuto
    If strPrinter Like "*Konica*" Then
        'Set the report destination paper bin to Tray 2 to print on yellow paper
         Reports(strReport).Printer.PaperBin = acPRBNLower
    End If
    If strPrinter Like "*Konica*" Then
        Reports(strReport).Printer.Duplex = acPRDPHorizontal
    End If
    If intView = vbNo Then DoCmd.PrintOut acPages, 1, IIf(strPrinter Like "*Konica*", 2, 1)
    If strPrinter Like "*Konica*" Then Reports(strReport).Printer.Duplex = acPRDPSimplex
    Reports(strReport).Printer.PaperBin = acPRBNAuto
    If intView = vbNo And Not strPrinter Like "*Konica*" Then
        If Not strPrinter Like "*Konica*" Then MsgBox "Add paper or turn sheet over to print on reverse then click OK.", vbApplicationModal, "Print"
        DoCmd.PrintOut acPages, 2, 2, , IIf(strPrinter Like "*Konica*", 1, 2)
    End If
    If intView = vbNo Then DoCmd.Close acReport, strReport, acSaveNo
End If