If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Printing two reports at once.
I have a database that is very complex that I did not set up. I would like to
take a report that was previously set up and add a new report (BOL1) that I have made and print them both at the same time. The main problem when I go into my report is the report is not limited to what I want to print. When I print it I go in and tell it I want to print from page 1 to page 1 and to print three copies. I would like to add this command to the original print function. Here is the original print function code. Public Function PrintShipments(lBOL As Long, bPackingLists As Boolean, bProduction As Boolean, _ bInvoice As Boolean, bBOL As Boolean, Optional bPreview As Boolean) Dim lType As Long On Error GoTo erh If bPreview Then lType = acViewPreview Else lType = acViewNormal End If If bPackingLists Then SetReportType shpPackingList DoCmd.OpenReport "rptShipments", lType, , "BillOfLading =" & Str(lBOL) If Not bPreview Then DoCmd.OpenReport "rptShipments", lType, , "BillOfLading =" & Str(lBOL) 'DoCmd.OpenReport "rptShipments", lType, , "BillOfLading =" & Str(lBOL) End If End If If bProduction Then SetReportType shpProduction DoCmd.OpenReport "rptShipments", lType, , "BillOfLading =" & Str(lBOL) End If If bInvoice Then SetReportType shpInvoice DoCmd.OpenReport "rptShipments", lType, , "BillOfLading =" & Str(lBOL) End If If bBOL Then SetReportType shpBillOfLading DoCmd.OpenReport "rptShipments", lType, , "BillOfLading =" & Str(lBOL) End If GoTo eotf erh: ' no errors expected apiuerror "Main", "PrintShipment", 0 Resume eotf eotf: End Function |
Thread Tools | |
Display Modes | |
|
|