Filter
Top Products
A-30 Programmer’s Manual
Case "EAN 13"
rPrint.Text = fmtEAN13
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 "MSI Plessey"
rPrint.Text = fmtMSI
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 "EAN 128"
rPrint.Text = fmtEAN128
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) & strFCN1 & strScanData &
Chr(34) & "|"
rPrint.Text = "3" & Chr(34) & strType & Chr(34) & "|}"
objForm.lblStatus.Text = ""
Case "UPC E1"
objForm.lblStatus.Text = "UPC E1 not available to print"
Case "Trioptic Code 39"
objForm.lblStatus.Text = "Trioptic Code 39 not available
to print"
Case "Bookland EAN"
objForm.lblStatus.Text = "Bookland EAN not available to
print"
Case "Coupon Code"
objForm.lblStatus.Text = "Coupon Code not available to
print"
Case "RSS-14"
objForm.lblStatus.Text = "RSS-14 not available to print"
Case "RSS-Limited"
objForm.lblStatus.Text = "RSS-Limited not available to
print"
Case "RSS-Expanded"
objForm.lblStatus.Text = "RSS-Expanded not available to
print"