Honeywell E-Class Series - VB Application Interfacing Via Windows Driver

‘Print label by clicking print button with the mouse
Private Sub cmdPrint_Click()
‘Concatenate all the dynamic data fields with the constant header
strings, terminated with <cr> Chr$(13)
OrderData = OrderTxt & txtOrderNo.Text & Chr$(13) & OrderBC & txtOrderNo.Text &
Chr$(13) & CustomerTxt & txtCustomer.Text
Item1 = Item1NO & txtItem1.Text & Chr$(13) & Item1BC & txtItem1.Text & Chr$(13) &
Item1Txt & txtItem1Desc.Text & Chr$(13) & Item1Qty & txtItem1Qty.Text
‘Concatinate entire label format and send out serial port
PrintLabel = CharSet & MaxLength & Chr$(13) & CharSet & StartLabel & Chr$(13) &
PrintDensity & Chr$(13) & Image1 & Chr$(13) & OrderData & Chr$(13) & Item1 & Chr$(13)
& Fixed & Chr$(13) & EndLabel
Comm1.Output = PrintLabel End Sub
‘Display the record form on the screen
Private Sub Form_Load()
Fixed = Itm1 & Chr$(13) & Chr$(13) & Qty1 & Chr$(13) & Chr$(13) & BoxPos1 & Box-
size & Chr$(13)
CharSet = Chr$(126) ‘Alternate <stx> character ~
MComm.PortOpen = 1 ‘Open the serial port
End Sub
‘Exit the program by clicking Exit button with the mouse
Private Sub cmdExit_Click()
Comm1.PortOpen = 0 ‘Close down the serial port
End
End Sub

VB Application interfacing via Windows Driver
Create a form similar to the following image.
VERSION 5.00
Begin VB.Form Form1
Caption = “Datamax Test Print”
288
DPLCommand Reference