Private Sub cmdDO_Click() RptDO.ReportFileName = "Path\RASManualDeliveryOrder.rpt" RptDO.Formulas(0) = "DOType='ORIGINAL'" RptDO.SQLQuery = "" RptDO.CopiesToPrinter = 1 RptDO.Destination = crptToPrinter RptDO.Action = 1 RptDO.Formulas(0) = "DOType='COPY'" RptDO.PrinterCopies = 2 RptDO.Destination = crptToPrinter RptDO.Action = 1 End Sub
RptDO
Formulas
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)