Thanks! -----Original Message----- From: "Bill Haskett" <[EMAIL PROTECTED]> To: <[email protected]> Date: Mon, 26 Jun 2006 12:55:38 -0700 Subject: RE: [U2] MICR fonts with UniData
> 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/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
