Paxar 6039 Printer User Manual


  Open as PDF
of 152
 
Sample Applications A-29
Case "Discrete 2 of 5"
objForm.lblStatus.Text = "D2of5 not available to print"
Case "IATA 2 of 5"
objForm.lblStatus.Text = "IATA 2of5 not available to
print"
Case "Interleaved 2 of 5"
rPrint.Text = fmtI2OF5
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 93"
rPrint.Text = fmtC93
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 "UPC A"
rPrint.Text = fmtUPCA
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"
rPrint.Text = fmtUPCE
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"
rPrint.Text = fmtEAN8
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