Re: printing MICR code on checks

["Helen H. Moore" <moorehh@JMU.EDU>]

Kathy,

I could not get the 'Declare printer....' portion to work either.  So I
changed the code
to use this escape sequence with a soft font. The last part of the escape
sequence
sets the font smaller. (<27>&k15H)

encode '<27>(8M<27>(s0p7.89h12.0v0s2b80T<27>&k15H' into $micrfont
print $micrfont () code

  do Format-Number(&B.Check#, $CheckNum, '0999999')
  let $MicrLine =
    '/' || $CheckNum   || '/' || ' ' ||
    '&' || $TransitNum || '&' || ' ' ||
           $AccountNum || '/'

  print $MicrLine               (101,10)


Helen


At 02:55 PM 11/9/1999 -0600, you wrote:
>I was wondering if perhaps some of you could help me.  We are changing banks
>and
>our new bank is being very picky on the micro coding on the bottom of our
>checks.
>I have sent them 4 different batches and each one has failed.  They want
>only half
>a space between check# and transit# and between transit# and account#.
>
>I have changed point-size, line-size, char-size, chars-inch and I cannot
>seem to
>find anything that makes a difference in the size of the characters.  Here
>is the
>section I have been working with - any ideas would be GREATLY appreciated.
>
>begin-procedure Declare-Printer-Microcode
>  declare printer
>    type          = HPLASERJET
>    orientation   = portrait
>    top-margin    = 0.00
>    left-margin   = 0.2
>    symbol-set    = 0Q
>    font          = 620
>    font-style    = fixed
>   point-size    = 8.4
>   line-size         = 8
>
>end-procedure

Helen Moore
Senior Programmer Analyst
Well 113, MSC 6202
James Madison University
Harrisonburg, VA 22807
Phone (540)568-2902 Fax (540)568-7997