Dim objReport As clsReport Dim objFrmReport As New frmreport Dim objUD17 As clsUD17 Dim myReport As PackSlip objOrder = New clsOrder ' Created for the connection objUD17 = New clsUD17(dtBatch, objOrder.getConnection) ' pass the connection ' objUD17.CheckBatch() ' Check the batch myReport = New PackSlip() objReport = New clsReport(dtBatch) objReport.ExtractReport() myReport.PrintOptions.PrinterName = "HP LaserJet 1100 (MS)" myReport.PrintToPrinter(1, True, 1, 0) 'objFrmReport.Show() ' dtBatch = objUD17.getDt ' return the datatable as this could have items that have been removed due to them being scanned. 'objUD17.CheckBatch() ' Check the batch objUD17.createNewBatch() 'Create the new batch objReport = Nothing objFrmReport = Nothing objOrder = Nothing MsgBox("Complete")
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.