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")
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
From novice to tech pro — start learning today.