| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3274368
建立时间:2005年6月6日 |
| |
|
 [delpih编程]热敏式打印机的打印备忘
软件技术
吕向阳 发表于 2009/4/8 8:48:13 |
| procedure Tfkhxf.dy(dh: integer);vartfPrint: TextFile;linestring: string;beginAssignFile(tfPrint, 'lpt1');//开始打印，端口号1Rewrite(tfPrint); //覆盖式//以下为打印内容linestring := ' ***美发旗舰店';Writeln(tfPrint, linestring);writeln(tfprint, '--------------------------------');linestring := '凭证单号: ' + inttostr(dh);Writeln(tfPrint, linestring);linestring := '总费用:' + edit1.Text + '元';Writeln(tfPrint, linestring);writeln(tfPrint, #13); //换行closefile(tfprint); //关闭打印机end; |
|
|