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: u2-users@listserver.u2ug.org
> 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
> u2-users@listserver.u2ug.org
> To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
