Filter
Top Products
A-32 Programmer’s Manual
Case "UPC E + 5"
rPrint.Text = fmtUPCE5
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) & strType & Chr(34) & "|}"
objForm.lblStatus.Text = ""
Case "EAN 8 + 5"
rPrint.Text = fmtEAN85
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) & strType & Chr(34) & "|}"
objForm.lblStatus.Text = ""
Case "EAN 13 + 5"
rPrint.Text = fmtEAN135
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) & strType & Chr(34) & "|}"
objForm.lblStatus.Text = ""
Case "UPC E1 + 5"
objForm.lblStatus.Text = "UPC E1 + 5 not available to
print"
Case Else
End Select
End Sub
End Class