delphi调用打印的问题
小弟这阵子发现电影票销售系统在打票时用的是EPSON TM-T86L专用打印机,这个打印机好像不用装驱动就可以打印,小弟找了很久都没有找到相关资料,软件是如何调用该打印机的,而且还要以打条码。平常的做法就是软件直接去调用打印机,结果现在连控制面板里打印都没有,该如何调用呢。有哪位高手能做出解释吗?小弟将感激涕零
[解决办法]
procedure PrintTicket();stdcall;
var
F:TextFile;
i: integer;
begin
Assignfile(f,'LPT1');
rewrite(f);
//write(f,#$1b#$23#$2a#$0a#$00); 直接用ESC命令控制打印机
//writeln(f,'aaa');
write(f,'中国人民'#10);
closefile(f);
end;
[解决办法]
erhan 的回答非常正确,补充两点:
1. 如果使用串口,上面的 AssignFile 中,LPT1 可改为 COM1,COM2...
2. 如果想使用共享,则在 AssignFile( f,'句柄' ) 中 句柄=\\共享的电脑名\打印机共享名 即可