pos打印机问题

520520java 2010-09-01 09:29:28
procedure TForm1.Button4Click(Sender: TObject);
var
PText:system.text;
i:integer;
begin


//// Assignfile(PText,'lpt1'); // 设置打印机
if printdialog1.execute then AssignPRN(PText);
Rewrite(PText);
Printer.Canvas.Font.Name:='黑体'; //控制字体
Printer.Canvas.Font.Size:=10; // 控制字号
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,''); //打印空行


system.close(Ptext);


帮我看看这个打印好像不行,在打印任务栏上显示,但不打印,一会就在打印任务栏上自动删除!!如果用上面的assignfile函数就可以打印,但打印设置的字体之类没用了,拜托了
...全文
213 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
luohao14789 2010-10-06
  • 打赏
  • 举报
回复
恩,和打印机有关,像爱普生就得使用后缀带M的型号,如TM-U220BM,这样就可以设置字体大小等,
而TM-U220B就不支持中文 设置了
你自己好好看下打印机说明书,或咨询打印机公司客服。
jian_jiao 2010-10-06
  • 打赏
  • 举报
回复
我也是搞打印软件的,关注一下。
貌似没有看到设置对应打印机的型号吧??
xjq2003 2010-09-10
  • 打赏
  • 举报
回复
[Quote=引用楼主 520520java 的回复:]
procedure TForm1.Button4Click(Sender: TObject);
var
PText:system.text;
i:integer;
begin


//// Assignfile(PText,'lpt1'); // 设置打印机
if printdialog1.execute then AssignPRN(PText);
Rewrite(P……
[/Quote]这个和打印机有关,你还是看看打印机的说明吧
Blessed_Chuan 2010-09-03
  • 打赏
  • 举报
回复
关注一下
winstonbonaparte 2010-09-01
  • 打赏
  • 举报
回复
printer的控制码我以前用过的,我当时用的是爱普生的票据打印机,你可以查看下打印机的厂商说明,那里面应该有字体控制这些命令的,或者你直接问厂家,他们会给你的
fei2046 2010-09-01
  • 打赏
  • 举报
回复
字体可用printer的控制码,有的小票机带的。

2,498

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧