Paxar 6039 Printer User Manual


 
A-20 Programmer’s Manual
'************************************************************
'* MSI Plessey Barcodes
'************************************************************
Dim MSI As New Ultra.Scan.MSI
MSI.Enable = True ' Enable MSI Barcodes
MSI.Use2CDs = False ' Don't use 2 C/Ds
MSI.UseMod10Mod11CDAlg = False ' Don't use Mod 10
MSI.XmitCD = True ' Xmit C/D
MSI.FixedLength = False ' Variable Length Enabled
MSI.Length1 = 1 ' Variable Length1 = 1
MSI.Length2 = 55 ' Variable Length2 = 55
'************************************************************
'* Code 93 Barcodes
'************************************************************
Dim C93 As New Ultra.Scan.Code93
C93.Enable = True ' Enable Code 93 Symbology
C93.FixedLength = False ' Variable Length Enabled
C93.Length1 = 2 ' Variable Length1 = 2
C93.Length2 = 55 ' Variable Length2 = 55
'************************************************************
'* Codabar Barcodes
'************************************************************
Dim CODABAR As New Ultra.Scan.Codabar
CODABAR.Enable = True ' Enable Codabar Symbology
CODABAR.FixedLength = False ' Variable Length Enabled
CODABAR.Length1 = 1 ' Variable Length1 = 1
CODABAR.Length2 = 55 ' Variable Length2 = 55
'************************************************************
'* General Settings
'************************************************************
Dim GENERAL As New Ultra.Scan.General
GENERAL.Preamble = "" ' Clear any preambles
GENERAL.Postamble = "" ' Clear any postambles
GENERAL.Timeout = 30 ' No Scan T/O = 30tenths/sec
GENERAL.AimDuration = 0 ' Aim Duration
GENERAL.BdirRedundancy = False
' Disable BiDirection Redundancy
GENERAL.LinearSecurity = 1
' Set Linear Security = 1
GENERAL.GoodScanWav = "\Windows\goodscan.wav"
' Set GoodScan WAV File
GENERAL.NoReadWav = "\Windows\noread.wav"
' Set NoREAD WAV File