Re: printing micr codes on check... now need to reset

[Bill Beckner <Bbeckner@ICC.EDU>]

I think you need to use a couple of escape sequences to "turn" the MICR font
on and then off.  Here's what we did.  First, we set up some variables
first, encoding the various MICR escape sequences, like this:

    encode '<27><27>%-12400X'  into $MicrOn   !Turns Micrfont On
    encode '<27><27>%-12401X'  into $MicrOff   !Turns MicrFont Off.
    encode '<27>&l(0O<27>(0Q<27>(s0p8.00h8.8v0s0b0T' into $MicrFont

Then you could do something like this:

    let $MicrPrint = $MicrOn || $MicrFont || MicrLine || $MicroOff

    print $MicrPrint            (66,17)

Hope this helps!!

--
William Beckner -- Stunt Programmer (Just call me "Bill")
Illinois Central College, Rm L141 -- East Peoria, IL  61635-0001
PH: (309) 694-8419 -- FAX: (309) 694-8995
"Reality is a figment of your imagination."

 -----Original Message-----
From:   Andrew Lin [mailto:alin@TECHNEGLAS.COM]
Sent:   Wednesday, February 27, 2002 1:22 PM
To:     SQR-USERS@list.iex.net
Subject:        printing micr codes on check... now need to reset

Hi all,

I finally got my micr code to print correctly, but now
I can't get the friggin thing to reset back to normal
font for the rest of the check.

It still needs to print the address on the next section
of the check, and I don't think the mailman knows how
to read micr.

Here's my code:

  encode '<27>(0Q<27>(s0p8.00h8.8v0s0b0T' into $micr-command
  print $micr-command           (66,17) code
  print $MicrLine               (66,17) code           !this is the
actual micr line


Following this, I've tried:

 encode '<27>(8U<27>(s0p10.00h12.0v0s3b3T' into $normal_font
 print $normal_font (,) code

and also:

  alter-printer font-type = proportional symbol-set=19U
  font = 5 point-size = 10 pitch=16.6

Any ideas?
Thanks.