| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3283050
建立时间:2005年6月6日 |
| |
|
 [delpih编程]关于delphi操作热敏打印机
软件技术
吕向阳 发表于 2009/9/8 19:58:53 |
| 使用如下代码可以直接打印procedure TForm1.Button1Click(Sender: TObject);varPText:TextFile; i:integer; begin Printer.Canvas.Font.Charset:=GB2312_CHARSET;AssignPRN(PText);Rewrite(PText);Printer.Canvas.Font.Name:='黑体'; //控制字体Printer.Canvas.Font.Size:=15; // 控制字号writeln(Ptext,'卡号:210008888888');Printer.Canvas.Font.Size:=10;writeln(Ptext,'');writeln(Ptext,'密码:111111');writeln(Ptext,'');Printer.Canvas.Font.Size:=8;writeln(Ptext,'开卡时间'+datetimetostr(now));writeln(Ptext,''); //打印空行CloseFile(Ptext); //停止打印end;使用上面的代码还需在uses 中加入Printers单元.OK,可以打印了 |
|
|