How to printing Barcode of Laser Printer

admin

You must embed the escape sequences with the 4GL statements.  Here's an exaple where I print the barcode for 5 data elements using an HPL laserjet printer.  THis is old code, so I don't remember the model number.

The point is you'll have to check your printer documentation:

CODE

1. LET prt_cmd_str =
   
2.     ASCII 27,"(0Y",               # Select barcode font
   
3.     ASCII 27,"(s0p8.1h12v0s0b0T", # Pitch set.
   
4.     ASCII 27, "&a9R",             # Line 9.2
   
5.     ASCII 27,"&a6C",              # Column 6
   
6.     "*",r_itmrcpt.receiptid CLIPPED,"*",
   
7.     ASCII 27, "&a12R",            # Line 12.2
   
8.     ASCII 27,"&a6C",              # Column 6
   
9.     "*",r_itmrcpt.pallet CLIPPED,"*",
   
10.     ASCII 27, "&a15R",            # Line 15.2
    
11.     ASCII 27,"&a6C",              # Column 6
    
12.     "*",r_itmrcpt.mm CLIPPED,"*",
    
13.     ASCII 27, "&a18R",            # Line 18.2
    
14.     ASCII 27,"&a6C",              # Column 6
    
15.     "*",r_itmrcpt.item CLIPPED,"*",
    
16.     ASCII 27, "&a21R",            # Line 21.2
    
17.     ASCII 27,"&a6C",              # Column 6
    
18.     "*",dispqty USING "&&&&&&","*",
    
19.     ASCII 27,"(0U",               # Ascii
    
20.     ASCII 27, "&a24R",            # Line 24
    
21.     ASCII 27,"(s0p10h6v0s0b3T"
    
22. 
    
23.   PRINT prt_cmd_str CLIPPED

複製代碼

http://www.iiug.org/software/index_I4GL.html