Filter
Top Products
A-28 Programmer’s Manual
Const fmtUPCE2 As String = "{F,1,A,R,E,200,200," &
Chr(34) & "UPCE2" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "B,1,9,V,25,35,12,4,100,7,L,0|" _
& "T,2,22,V,133,1,0,1,1,1,O,C,0,0|}"
Const fmtUPCE5 As String = "{F,1,A,R,E,200,200," &
Chr(34) & "UPCE5" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "B,1,12,V,25,20,13,4,100,7,L,0|" _
& "T,2,22,V,133,1,0,1,1,1,O,C,0,0|}"
strType = objForm.txtScanType.Text
' --Clear any errors
rPrint.ClearError()
' Print Format & Batch
Select Case (strType)
Case "Code 39"
rPrint.Text = fmtC39
rPrint.Text = "{B,1,N,1|E,0,0,1,1,0,1|"
rPrint.Text = "1," & Chr(34) & strScanData & Chr(34) & "|"
rPrint.Text = "2" & Chr(34) & strScanData & Chr(34) & "|"
rPrint.Text = "3" & Chr(34) & strType & Chr(34) & "|}"
objForm.lblStatus.Text = ""
Case "Codabar"
rPrint.Text = fmtCodabar
rPrint.Text = "{B,1,N,1|E,0,0,1,1,0,1|"
rPrint.Text = "1," & Chr(34) & strScanData & Chr(34) & "|"
rPrint.Text = "2" & Chr(34) & strScanData & Chr(34) & "|"
rPrint.Text = "3" & Chr(34) & strType & Chr(34) & "|}"
objForm.lblStatus.Text = ""
Case "Code 128"
rPrint.Text = fmtC128
rPrint.Text = "{B,1,N,1|E,0,0,1,1,0,1|"
rPrint.Text = "1," & Chr(34) & strScanData & Chr(34) & "|"
rPrint.Text = "2" & Chr(34) & strScanData & Chr(34) & "|"
rPrint.Text = "3" & Chr(34) & strType & Chr(34) & "|}"
objForm.lblStatus.Text = ""