Filter
Top Products
Sample Applications A-25
' Barcode Type
Dim rPrint As New Ultra.Print
Const fmtC39 As String = "{F,1,A,R,E,200,200," & Chr(34)
& "C39" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) &
"M6039 Platinum" & Chr(34) & "|" _
& "T,1,22,V,6,1,0,1,1,1,O,C,0,0|" _
& "B,2,20,V,23,2,4,12,100,8,C,0|" _
& "T,3,22,V,133,1,0,1,1,1,O,C,0,0|}"
Const fmtCodabar As String = "{F,1,A,R,E,200,200," &
Chr(34) & "CODABAR" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "T,1,22,V,6,1,0,1,1,1,O,C,0,0|" _
& "B,2,18,V,23,100,5,8,100,8,B,0|" _
& "T,3,22,V,133,1,0,1,1,1,O,C,0,0|}"
Const fmtC128 As String = "{F,1,A,R,E,200,200," &
Chr(34) & "C128" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "T,1,22,V,6,1,0,1,1,1,O,C,0,0|" _
& "B,2,22,V,23,100,8,8,100,8,B,0|" _
& "T,3,22,V,133,1,0,1,1,1,O,C,0,0|}"
Const fmtI2OF5 As String = "{F,1,A,R,E,200,200," &
Chr(34) & "I2OF5" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "T,1,22,V,6,1,0,1,1,1,O,C,0,0|" _
& "B,2,22,V,23,11,3,13,100,8,C,0|" _
& "T,3,22,V,133,1,0,1,1,1,O,C,0,0|}"
Const fmtC93 As String = "{F,1,A,R,E,200,200," &
Chr(34) & "C93" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "T,1,22,V,6,1,0,1,1,1,O,C,0,0|" _
& "B,2,18,V,23,100,23,10,100,8,B,0|" _
& "T,3,22,V,133,1,0,1,1,1,O,C,0,0|}"