Paxar 6039 Printer User Manual


 
Sample Applications A-23
Select Case nBarType
Case -1
objForm.txtScanType.Text = "No Scan"
objForm.txtScanLength.Text = "0"
Case 0
objForm.txtScanType.Text = "Unknown"
Case 1
objForm.txtScanType.Text = "Code 39"
Case 2
objForm.txtScanType.Text = "Codabar"
Case 3
objForm.txtScanType.Text = "Code 128"
Case 4
objForm.txtScanType.Text = "Discrete 2 of 5"
Case 5
objForm.txtScanType.Text = "IATA 2 of 5"
Case 6
objForm.txtScanType.Text = "Interleaved 2 of 5"
Case 7
objForm.txtScanType.Text = "Code 93"
Case 8
objForm.txtScanType.Text = "UPC A"
Case 9
objForm.txtScanType.Text = "UPC E"
Case 10
objForm.txtScanType.Text = "EAN 8"
Case 11
objForm.txtScanType.Text = "EAN 13"
Case 14
objForm.txtScanType.Text = "MSI Plessey"
Case 15
objForm.txtScanType.Text = "EAN 128"
Case 16
objForm.txtScanType.Text = "UPC E1"
Case 21
objForm.txtScanType.Text = "Trioptic Code 39"
Case 22
objForm.txtScanType.Text = "Bookland EAN"
Case 23
objForm.txtScanType.Text = "Coupon Code"
Case 48
objForm.txtScanType.Text = "RSS-14"
Case 49
objForm.txtScanType.Text = "RSS-Limited"
Case 50
objForm.txtScanType.Text = "RSS-Expanded"