Citizen Systems Network Router 1.8 Manuel D’Utilisation

 
 
 

 

 

CITIZEN OPOS DRIVER 1.8 Application Development Guide

46 

+ 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) 
 

 

・

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