Posted by Grant Foraker on September 27, 2012 at 12:26:23:
In Reply to: Re: MICR Font posted by Les Toeplitz on September 26, 2012 at 11:15:54:
This is the code ...
1st part changes the print to MICR. Note the ANSI.CHARSET.
2nd part builds the MICR line. There's variation between banks. This was used for City National Bank. "ABCD" on Comet translate to the special characters used by the MICR font. If you preview the font in Windows, you'll see which ones you'll need for the bank(s)you're dealing with.
Hardest part of the project is getting the MICR line to always fall within the bank's scanner range. Not always easy when the printer's feed mechanism is sloppy.
! CHANGE TO NEW FONT AND SIZE
GOSUB GDI.INITLOGFONT
LFHEIGHT$ = INTELD(12*20)
LFWEIGHT$ = INTELD(FW.NORMAL)
LFCHARSET$ = INTEL(ANSI.CHARSET) ! NEEDED FOR SPECIAL FONT
LFFACENAME$ = 'MICR E13B'+ NULLBYTE$
GOSUB SETFONT
MICRForCNB:
LET MICRHEAD$ = ' A' ! START ABA
LET MICRHEAD$ = MICRHEAD$ + ABA$ ! ABA NUMBER
LET MICRHEAD$ = MICRHEAD$ + 'A' ! END ABA
LET MICRHEAD$ = MICRHEAD$ + ' '
LET MICRHEAD$ = MICRHEAD$ + STRIP(ACCTNO$) ! ACCOUNT NUMBER
!
! BUILD MICR DATA
LET TCHKNO$ = STRIP(STR(CHKNO))
LET L = LEN(TCHKNO$) ! LENGTH OF CHECK #
LET MICR$ = ' C'
IF L LT 6 LET MICR$ = MICR$ + SUB('000000',1,6 - L)
LET MICR$ = MICR$ + TCHKNO$ ! CHECK NUMBER
LET MICR$ = MICR$ + 'C' ! END OF CHECK NUMBER
LET MICR$ = MICR$ + MICRHEAD$
RETURN
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.