打印信封技巧

Author: 重庆周竹荣 Date: 1992-10-23

        编制信封打印程序应注意以下几个问题：走纸控制、字型控制以及行间距、字间距。打印过程应是这样：将待打印的空白信封轻轻放在单页输纸架上，运行打印程序，打印机自动将信封卷入并打印，打印完毕，打印机自动将信封卷出，伸手可取。
        如果将打印信封程序与通讯录管理结合起来，则更为方便美妙。
        笔者用turbo pascal编制了一个信封打印程序，能够在DPK3600打印机上接上述过程打印出美观的信封，对于使用不同打印机的用户只须查一下用户手册或打印驱动程序说明，找到要使用的控制码，即可自行编制信封打印程序，本方法还可由DBASE及BASIC等语言实现。
        PROGRAM ZZY；
        VAR
        I：INTEGER；
        BEGIN
        I：=1;
        WRITE(CHR(28),'109');{行距}
        WHILE I<12 DO ｛走纸12行，卷入信封｝
        BEGIN
        WRITE(CHR(10));
        I:=I+1;
        END;
        WRITE(CHR(27),CHR(32),'5');{字距}
        WRITE(CHR(27)，'12D');{字型}
        WRITELN('630013')
        WRITE(CHR(27),CHR(32),'1');{字距}
        WRITELN(CHR(27),'I3B');{字形}
        WRITELN('重庆市双钢路3号');
        WRITE(CHR(27),'I4D');{字形}
        I:=1;
        WHILE I<=3 DO {走纸3行}
        BEGIN
        WRITELN(CHR(10));
        I:=I+1
        END;
        WRITELN('《电脑报》编辑部收');
        I:=1;
        WHILE I<=3 DO {走纸3行}
        BEGIN
        WRITELN(CHR(10));
        I:=I+1;
        END;
        WRITE(CHR(27),'I3B'){字形}
        WRITELN('周缄')
        WRITELN(CHR(12));{连续走纸，卷出信封}
        END.
        注：本程序在长城286EX/16上实现，使用智能ABC汉字系统，打印驱动程序为PS，打印机为DPK3600、24针带硬字库打印机。本程序所使用的打印控制码为PS所有。
        将本程序编译、链接后形成EXE文件，运行时须将运行结果重定向到打印机。