Printing bar codes using quiz

[John Pearce]

--=====================_3166613==_.ALT
Content-Type: text/plain; charset="us-ascii"

At 02:38 PM 8/31/2000 -0500, Doug Muench wrote:
>I would appreciate it if someone could send me a sample of quiz code
>which prints bar code in 3 of 9 format. I will be printing to an HP
>Laser Jet Printer.
>

Doug,

If you have the bar codes font (we use Bar Codes and More) installed in the
printer, you can print Code 39 bar codes this way.

DEFINE IESC INTEGER*2 = 27
DEFINE ESC CHAR*1 = CHAR(IESC)[2:1]
DEFINE CODE39-8-1 CHAR*27 = & ;turn on code 3 of 9 font spacing 8.1
  ESC+"&l0O"+ ESC+"(0Y" + ESC+"(s0p8.1h12v0s0b0T"

DEFINE FONT-CODE  CHAR*26 = & ;return to original font
  ESC+"&l0O"+ ESC+"(8U" + ESC+"(s0p10h12v0s0b3T"

DEFINE BC-ID-NO CHAR*38 = & ; Id number in bar code
  CODE39-8-1 + "*" + ID-NO OF DM2250S + "*"

DEFINE BC-APPEAL CHAR*32 = & ;fixed value 0019 in bar code
  "*0019*" + FONT-CODE

REPORT & ; bunches of stuff removed
  TAB 20 BC-ID-NO &
         "   " &
         BC-APPEAL &
    SKIP & ;bunches more stuff removed

I'm writing this from home and don't have the documentation on the PCL codes
handy.  The docs come with the Bar Codes and More font SIMM.  One of the
problems is all the non-printing escape sequences and how Quiz handles those
when the output line is built.   I don't know if this is the cleanest way to
handle the problem but it works for us and we use this technique in several
different Quiz reports.

As always,  YMMV.

------------------------------------------------------------------
John Pearce  <jpearce@rmi.net>  | Bethesda Management Company 
Speaking for only myself                | Colorado Springs, CO  USA 
--=====================_3166613==_.ALT
Content-Type: text/html; charset="us-ascii"

At 02:38 PM 8/31/2000 -0500, Doug Muench wrote:

>I would appreciate it if someone could send me a sample of quiz
code

>which prints bar code in 3 of 9 format. I will be printing to an
HP

>Laser Jet Printer.

>


Doug,


If you have the bar codes font (we use Bar Codes and More) installed in
the printer, you can print Code 39 bar codes this way.


DEFINE IESC INTEGER*2 = 27
DEFINE ESC CHAR*1 = CHAR(IESC)[2:1]
DEFINE CODE39-8-1 CHAR*27 = & ;turn on code 3 of 9 font spacing
8.1
  ESC+"&l0O"+ ESC+"(0Y" +
ESC+"(s0p8.1h12v0s0b0T"

DEFINE FONT-CODE  CHAR*26 = & ;return to original font
  ESC+"&l0O"+ ESC+"(8U" +
ESC+"(s0p10h12v0s0b3T"

DEFINE BC-ID-NO CHAR*38 = & ; Id number in bar code
  CODE39-8-1 + "*" + ID-NO OF DM2250S + 
"*"

DEFINE BC-APPEAL CHAR*32 = & ;fixed value 0019 in bar code
  "*0019*" + FONT-CODE

REPORT & ; bunches of stuff removed
  TAB 20 BC-ID-NO &
         "  
" &
         BC-APPEAL &
    SKIP & ;bunches more stuff removed

I'm writing this from home and don't have the documentation on the
PCL codes handy.  The docs come with the Bar Codes and More font
SIMM.  One of the problems is all the non-printing escape sequences
and how Quiz handles those when the output line is built.   I
don't know if this is the cleanest way to handle the problem but it works
for us and we use this technique in several different Quiz reports.


As always,  YMMV.


------------------------------------------------------------------

John Pearce 
<jpearce@rmi.net>
  
| Bethesda Management
Company

Speaking for only
myself
        
        
|
Colorado Springs, CO  USA

--=====================_3166613==_.ALT--

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.