Paxar 6039 Printer User Manual


  Open as PDF
of 152
 
Sample Applications A-31
Case "UPC A + 2"
rPrint.Text = fmtUPCA2
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 E + 2"
rPrint.Text = fmtUPCE2
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 + 2"
rPrint.Text = fmtEAN82
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 + 2"
rPrint.Text = fmtEAN132
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 + 2"
objForm.lblStatus.Text = "UPC E1 + 2 not available to
print"
Case "UPC A + 5"
rPrint.Text = fmtUPCA5
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 = ""
 previous next