[Bulk] printing micr font -pow 7.10.g3 on vms v 8

[Ken Langendock]

I'm not sure this will help but this is how I send escape sequences to deal
with font sizes.
Ken


  DEFINE D-ESC-NUM INTEGER * 2 UNSIGNED &
       = 27
  DEFINE D-ESC CHARACTER * 1 &
       = CHAR(D-ESC-NUM)

; (symbol)
  DEFINE HPIII-FONT-APPLICATION-ASCII CHARACTER * 4 &
       = D-ESC + '(0U'

; (spacing)
  DEFINE HPIII-FONT-SPACING-FIXED CHARACTER * 5 &
       = D-ESC + '(s0P'

; (height)
  DEFINE HPIII-FONT-HEIGHT-10 CHARACTER * 9 &
       = D-ESC + '(s10.00V'

; (PITCH)
  DEFINE HPIII-FONT-PITCH-10 CHARACTER * 9 &
       = D-ESC + '(s10H'    ; (10)
  DEFINE HPIII-FONT-PITCH-13 CHARACTER * 9 &
       = D-ESC + '(s13H'    ; (13)
  DEFINE HPIII-FONT-PITCH-16 CHARACTER * 9 &
       = D-ESC + '(s16.67H' ; (16)

; (style)
  DEFINE HPIII-FONT-UPRIGHT CHARACTER * 7 &
       = D-ESC + '(s000S'

; (stroke)
  DEFINE HPIII-MEDIUM CHARACTER * 6 &
       = D-ESC + '(s0B'

; (type face)
  DEFINE HPIII-CGTIMES CHARACTER * 8 &
       = D-ESC + '(s4101T'

; (orientation)
  DEFINE HPIII-LANDSCAPE CHARACTER * 5 &
       = D-ESC + '&l1O'
  DEFINE HPIII-PORTRAIT CHARACTER * 5 &
       = D-ESC + '&l0O'

  DEFINE HPIII-PORTRAIT80 CHARACTER * 5 &
       = TRUNCATE(HPIII-PORTRAIT) 
  DEFINE HPIII-PORTRAIT132 CHARACTER * 80 &
       = TRUNCATE(HPIII-PORTRAIT) &
       + TRUNCATE(HPIII-FONT-PITCH-16)
  DEFINE HPIII-LANDSCAPE132 CHARACTER * 80 &
       = TRUNCATE(HPIII-LANDSCAPE) &
       + TRUNCATE(HPIII-FONT-PITCH-13)
  DEFINE HPIII-LANDSCAPE175 CHARACTER * 80 &
       = TRUNCATE(HPIII-LANDSCAPE) &
       + TRUNCATE(HPIII-FONT-PITCH-16)
  DEFINE HPIII-LANDSCAPE220 CHARACTER * 80 &
       = TRUNCATE(HPIII-LANDSCAPE) &
       + TRUNCATE(HPIII-FONT-PITCH-16)

  DEFINE PCL-RESET CHARACTER * 2 = D-ESC + "E"
  DEFINE PCL-NUM-LINES CHARACTER * 6 = D-ESC + "&l68F"
  DEFINE PCL-LINES-INCH CHARACTER * 5 = D-ESC + "&l6D"

  DEFINE PCL-LARGE-FONT CHARACTER * 25 &       ; Using Letter Gothic Bold
                = D-ESC + "(10U" &
                + D-ESC + "(s0p10.00h0s3b4102T"
  DEFINE PCL-MEDIUM-FONT CHARACTER * 25 &
                = D-ESC + "(10U" &
                + D-ESC + "(s0p12.00h0s3b4102T"
  DEFINE PCL-SMALL-FONT CHARACTER * 25 &
                = D-ESC + "(10U" &
                + D-ESC + "(s0p16.00h0s3b4102T"

INITIAL HEADING &
        HPIII-LANDSCAPE132 &
        SKIP 1  TAB 1   SYSDATE &



-----Original Message-----
From: powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com
[mailto:powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com] On
Behalf Of Desmond Dujon
Sent: July 14, 2009 10:15 PM
To: powerh-l at lists.sowder.com
Subject: [Bulk] printing micr font -pow 7.10.g3 on vms v 8


We are trying to get some cheques printed out using MICR from powerhouse v
7.10.g3 on OpenVMs v 8. We bought a font memory card from TROY and installed
it in a HP2420dn laser printer.  We are experiencing some problems in
getting the escape sequences to work and print the MICR font as they should
to the printer. Can anyone help whether by an example or by sending the
escape sequences, which would be extremely helpful.
thanks