A-92
GS k Print Bar Code Example
OPEN "COM1:9600,n,8,1" FOR OUTPUT AS #1
PRINT #1, CHR$(27); "*";
PRINT #1, CHR$(29); "t"; CHR$(30);
PRINT #1, CHR$(29); "V1";
PRINT #1, CHR$(29); "h"; CHR$(101);
PRINT #1, CHR$(29); "k"; CHR$(11); CHR$(0);
PRINT #1, "*01234567890*";
PRINT #1, "01234567890"; CHR$(10);
PRINT #1, CHR$(12);
Example 38: GS k Print Bar Code
GS l Draw Line in Landscape Mode Example
OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
PRINT #1, CHR$(27); "*";
PRINT #1, CHR$(29); "t"; CHR$(30);
PRINT #1, CHR$(29); "V1";
PRINT #1, CHR$(29); CHR$(108); CHR$(0); CHR$(203);
PRINT #1, CHR$(0); CHR$(203); CHR$(7);
PRINT #1, CHR$(12);
The above example prints a line that is 3-dots wide, 1-inch long,
located 1 inch from the left.
Example 39: GS l Draw Line in Landscape Mode
GS q Print UPC/EAN Checksum Example
OPEN "COM1:9600,n,8,1" FOR OUTPUT AS #1
PRINT #1, CHR$(27); "*";
PRINT #1, CHR$(29); "t"; CHR$(37);
PRINT #1, CHR$(29); "V4";
PRINT #1, CHR$(29); "h"; CHR$(101);
PRINT #1, CHR$(29); "k"; CHR$(2); CHR$(11);
PRINT #1, "01234567890";
PRINT #1, "01234567890";
PRINT #1, CHR$(29); "q"; CHR$(2); CHR$(11);
PRINT #1, "01234567890";
PRINT #1, CHR$(12);
Example 40: GS q Print UPC/EAN Checksum
GS t Set Characters per Line in Landscape Example
OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
PRINT #1, CHR$(27);"*";
PRINT #1, CHR$(29); "t"; CHR$(30);
PRINT #1, CHR$(29); "V1";
PRINT #1, "This is Line One"; CHR$(10);
PRINT #1, "This is Line Two"; CHR$(10);
PRINT #1, CHR$(12);
Example 41: GS t Set Characters per Line in Landscape