![・OPOS_BC_DECIMAL](/images/new-backgrounds/149566/14956691x1.webp)
CITIZEN OPOS DRIVER 1.8 Application Development Guide
+ Chr$(&H33) + Chr$(&H33) _
+ Chr$(&H30) + Chr$(&H3D) _
+ Chr$(&H30) + Chr$(&H3A) _
+ Chr$(&H34) + Chr$(&H31) _
+ Chr$(&H34) + Chr$(&H32) _
+ Chr$(&H34) + Chr$(&H33) _
+ Chr$(&H30) + Chr$(&H3D) _ + Chr$(&H30) + Chr$(&H3A)
result = OPOSPrinter.PrintNormal(PrintStation, pString)
・OPOS_BC_DECIMAL
Each byte is converted to three characters. Val (String) is used by three characters each in order to convert ASCII to binary. To create three ASCII characters from each byte, Right("^^"+Str(Byte),3) is used in the following installation example, where "^" indicates a space.
Dim pString As String
Dim result As Long
Dim PrintStation As Long
OPOSPrinter.BinaryConversion = OPOS_BC_DECIMAL pString = Right(Str(68), 3) _
+ Right(Str (101), 3) _
+ Right(Str (99), 3) _
+ Right(Str (105), 3) _
+ Right(Str (109), 3) _
+ Right(Str (97), 3) _
+ Right(Str (108), 3) _
+ Right(Str (13), 3) _
+ Right(Str (10), 3) _
+ Right("^^" + str(49), 3) _ + Right("^^" + str(50), 3) _ + Right("^^" + str(51), 3) _ + Right("^^" + str(13), 3) _ + Right("^^" + str(10), 3) _ + Right(Str (65), 3) _
+ Right(Str (66), 3) _
+ Right(Str (67), 3) _
+ Right(Str (13), 3) _ + Right(Str (10), 3)
result = OPOSPrinter.PrintNormal(PrintStation, pString)
Every printing results in the following.
(Printing order: OPOS_BC_None, OPOS_BC_Nibble, OPOS_BC_Decimal)
None 123 ABC Nibble 123 ABC Decimal 123 ABC
46