首页 网站建设 网络营销 品牌策划 网站托管 新闻营销 品牌公关 行业资讯

当前位置:网络营销_SEO优化_网站推广_网络营销公司-爱牛北京网络公司 >首页 -> 打印机使用技巧

Turbo pascal编程打印信封技巧
2011-05-27 10:27:22 来源: 作者: 【 】 浏览:44

        编制信封打印程序应注意以下几个问题:走纸控制、字型控制以及行间距、字间距。打印过程应是这样:将待打印的空白信封轻轻放在单页输纸架上,运行打印程序,打印机自动将信封卷入并打印,打印完毕,打印机自动将信封卷出,伸手可取。

        如果将打印信封程序与通讯录管理结合起来,则更为方便美妙。

        笔者用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文件,运行时须将运行结果重定向到打印机。

爱牛网络公司拥有十三年网络营销推广经验的北京网络营销公司,专业的网络营销团队为您提供网络营销策划,网络推广,网络优化,网络营销外包,网站推广,网络营销推广公司。服务电话13552895708
Tags: 责任编辑:admin
】【打印繁体】【收藏】 【关闭】 【返回顶部
上一篇汉卡打印字形的扩充 下一篇三种常用打印方法

相关栏目

最新文章

图片信息

热门文章

推荐文章

相关文章