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")
|SAP Crystal Report can't save my custom paper size||12||23|
|SQL syntax in VB.net||5||30|
|Access to class from any project within a solution.||6||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
24 Experts available now in Live!