有关打印口发指令的问题: 请问各位大侠: 我的票据打印机是ESPON的,说明书上的打印格式码. 但我不知如何将这些格式码发往并口,请各位大师指教 最好能写几行代码说明一下,我先谢了. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var lpt: TextFile;begin ///OKI5340C的打印命令 AssignFile(lpt, str_printer); try ReWrite(lpt); writeln(lpt, ' '); Write(lpt, #27#74#6); Write(lpt, #27#106#179);//逆向走纸 Write(lpt, #27#106#180); //write(lpt,#28#107#01);//黑体 Write(lpt, #27#74#180); Write(lpt, #27#74#170); finally CloseFile(lpt); end; //end try..finallyend; var str_Printer: string; str_Printer: string;//打印机的端口号。'\\127.0.0.1\oki5340c\lpt1'一般情况下是lpt1 yoic:好. 是不是经过测试的呀. 我开始也是这样写的呀. 不过我写的是: Str_printer:="LPT1"; 好像只能打印字符, 没有格式呀? 是不是还有别的设置呀? 数据导出到Excel 使用THTTPRIO遇到的一个问题,请大虾指点。。。 怎么在DELPHIh中检测一个对象是否存在? 疯了,以下问题(TServerSocket 的线程阻塞方式,有代码)困扰我2天了!!100分,在线等待!!! 菜鸟问题:如何隐藏程序? 紧急求助 SocketConnection 一个关于SQLite读取汉字字段的问题。 ADO数据库保存问题? 100求delphi6在win 2k 英文版下的使用问题答案 delphi 查询数据库表里两星期内的记录 CommandText有字符串长度限制吗? 注册表中删除所有子项的问题
lpt: TextFile;
begin ///OKI5340C的打印命令
AssignFile(lpt, str_printer);
try
ReWrite(lpt);
writeln(lpt, ' ');
Write(lpt, #27#74#6);
Write(lpt, #27#106#179);//逆向走纸
Write(lpt, #27#106#180);
//write(lpt,#28#107#01);//黑体
Write(lpt, #27#74#180);
Write(lpt, #27#74#170);
finally
CloseFile(lpt);
end; //end try..finally
end;
str_Printer: string;
'\\127.0.0.1\oki5340c\lpt1'
一般情况下是lpt1
是不是经过测试的呀.
我开始也是这样写的呀.
不过我写的是:
Str_printer:="LPT1";
好像只能打印字符,
没有格式呀?
是不是还有别的设置呀?