John: If you install a MICR DIMM chip into the printer you can print the available fonts. If it is not listed the normal TROY font is:
[esc](0Q[esc](s1p12v0s0b0T Then simply reference this in your output stream, like: "[esc]&a650h7725V" to loca the printer cursor, then "[esc](0Q[esc](s1p12v0s0b0TC0012002524C A123456789A12 3456789 019C[esc]" ...where: 1) "C0012002524C" is the check ID used by the bank, 2) "A123456789" is the Federal Reserve and bank routing#, and 3) "12 3456789 019C" is the bank account#. Now reset the character set (or change the font) like "[esc](8U". Hope this helps. Bill -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Varney Sent: Monday, June 26, 2006 10:28 AM To: [email protected] Subject: RE: [U2] MICR fonts with UniData That's a good start. Thanks! How is the MICR loaded into flash memory? Is it part of a DIMM for the pritner or do you load it like a PCL soft font? Thanks! -----Original Message----- From: "Norman Morgan" <[EMAIL PROTECTED]> To: <[email protected]> Date: Mon, 26 Jun 2006 10:48:09 -0500 Subject: RE: [U2] MICR fonts with UniData > We do this. Our check stock is regular check safety paper with both > top > and bottom stubs. The center section has the security patterns, > microprinting, etc., along with a color logo. Everything else added by > the laser printer when we do the check printing with a UniBasic > program. > The printer has a MICR font stored in flash memory, along with a form > overlay image and uses a MICR toner cartridge. The program lays out > the > text for the check, shifting in and out of the MICR font as > appropriate, > then just before adding a form feed, it sends the escape sequences to > call the forms overlay which is stored as a PCL macro in the printers > flash memory. > > Here are some code snips from the program: > > * ** Define control info for laser printers > ESC = CHAR(27); FORMFEED = CHAR(12) > FORM.DEF = ESC:"&f112Y" > FORM.CALL = ESC:"&f3X" > SET.FONT.COURIER = ESC:"(10U":ESC:"(s0p10h0s0b4099T" > SET.FONT.MICR = ESC:"(10O":ESC:"(s0p8.00h11.0v0s0b70T" > SET.FONT.LINE.PRT = ESC:"(10U":ESC:"(s0p16.67h8.5v0s0b0T" > PRINTER.RESET = ESC:"E" > SET.PRINTER.LANDSCAPE = ESC:"&l2a0o6d0S" > SET.PRINTER.PORTRAIT = ESC:"(&l2a1o0S" > PRINTER.FORM.SET = SET.PRINTER.LANDSCAPE : SET.FONT.COURIER > PRINTER.FORM.SET := ESC:"&l1e64F":FORMFEED > > GOSUB PrintTopStub > GOSUB PrintCheckBody > GOSUB PrintBottomStub > GOSUB PostGoodCheck > PRINT FORM.DEF: > PRINT FORM.CALL: > PRINT FORMFEED: > > PrintCheckBody: > * ** Codes to position on form ** > PRINT ESC:"&a2585v5328H": > PRINT CKNO"R%6" > PRINT " ":CKNO"R%6":" ":OCONV(DATE(),"D2/")"R#8":" ":VNO"L#7" > PRINT > PRINT > PRINT > NET = TOT(3) > GOSUB BuildWordAmount > PRINT SPACE(4):WORD "L#80" > PRINT; PRINT > IF NET+0 = 0 THEN NET = "000" > PRINT SPACE(65):OCONV(NET,"MD2")"R2,*14" > PRINT > PRINT > PRINT SPACE(11):VEND<1> "L#40" > PRINT SPACE(11):VEND<2> "L#40" > IF VEND<3> # "" THEN PRINT SPACE(11):VEND<3> "L#40" > IF VEND<4> # "" THEN PRINT SPACE(11):VEND<4> "L#40" > PRINT SPACE(11):VEND<5,1>:' ':VEND<5,2>:' ':VEND<5,3> > * ** Select MICR font & Position MICR line to Check # > PRINT SET.FONT.MICR: > PRINT ESC:"&a4730v1020H": > * ** Print Check Number > PRINT CHAR(47):CKNO"R%6":CHAR(47):" ": > * ** Print Routing Number > PRINT CHAR(38):ROUTING.NUM:CHAR(38):" ": > * ** Print Account Number > PRINT ACCOUNT.NUM:CHAR(47): > * ** Switch back to Courier Font > PRINT SET.FONT.COURIER: > RETURN > > =========================================================== > Norman Morgan <> [EMAIL PROTECTED] <> http://www.brake.com > =========================================================== > Why does mineral water that has trickled through mountains > for centuries have a 'use by' date? > =========================================================== > > > > > -----Original Message----- > > From: [EMAIL PROTECTED] > > [mailto:[EMAIL PROTECTED] On Behalf Of Jerry Banker > > Sent: Monday, June 26, 2006 9:39 AM > > To: [email protected] > > Subject: RE: [U2] MICR fonts with UniData > > > > I thought you wanted it printed from Unidata? > > > > -----Original Message----- > > From: John Varney [mailto:[EMAIL PROTECTED] > > Sent: Monday, June 26, 2006 9:29 AM > > To: Jerry Banker > > Subject: RE: [U2] MICR fonts with UniData > > > > > > I wish I could do it that way, but the checks are coming > > directly from > > a unix box via a routine that uses PCL5 to format blank > > stock. As far as > > > > I can tell I have to either use a laser printer with the MICR font > > permanently installed or use an MICR soft type font that is loaded to > > the > > printer via PCL5 commands each time a check run is done. > > > > I was wondering if anyone else has done anything like this > > and if they > > would share HOW they did it. > > ------- > > u2-users mailing list > > [email protected] > > To unsubscribe please visit http://listserver.u2ug.org/ > ------- > u2-users mailing list > [email protected] > To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
