Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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")
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.