Filter
Top Products
A-18 Programmer’s Manual
' Set TriggerMode (Activate scanner on trigger press/release)
Scanner.TriggerMode = Scanner.eTriggerMode.TM_SCAN
' --Enable Send Scan Status
Scanner.SendScanStatus = True
' Enable Send Scan Status
'************************************************************
'* UPCA Barcodes
'************************************************************
Dim UPC As New Ultra.Scan.UPCEAN
UPC.EnableUPCA = True ' Enable UPCA
UPC.XmitUPCACD = True ' Xmit UPCA C/D
UPC.XmitUPCAPre = UPC.XmitUPCAPre.XUP_SYSCHAR
' To Scan/Print UPCE Barcodes, UPCE Preamble must be set to
' NONE
UPC.EnableUPCE = True ' Enable UPCE
UPC.XmitUPCECD = True ' Xmit UPCE C/D
UPC.XmitUPCEPre = UPC.XmitUPCEPre.XUP_NONE
UPC.EnableUPCE1 = True ' Enable UPCE1
UPC.XmitUPCE1CD = True ' Xmit UPCE1 C/D
UPC.XmitUPCE1Pre = UPC.XmitUPCE1Pre.XUP_SYSCHAR
UPC.EnableEAN8 = True ' Enable EAN8
UPC.EnableEAN13 = True ' Enable EAN13
UPC.CouponCode = True ' Enable Coupon Code
UPC.EnableEANBkld = True ' Enable Bookland
UPC.Xlate8To13 = False ' Don't Translate 8 to 13
UPC.XlateE1ToA = False
' Don't Translate UPCE1 to UPCA
UPC.XlateEToA = False
' Don't Translate UPCE to UPCA
UPC.EANZeroExtend = False
' Don't use EAN Zero Extend
UPC.SupRedundancy = 7
' Set Supplemental Redundancy = 7
' Enables UPCA + 2, UPCA +5, EAN8 + 2, EAN8 +5, EAN13 +2 &
' EAN13 + 5 Symbologies
UPC.Supplemental = UPC.eSupplemental.USM_AUTO