如何控制微型(票据)打印机输出,请多多帮忙!(300分)

  • 主题发起人 主题发起人 Tom_cn
  • 开始时间 开始时间
T

Tom_cn

Unregistered / Unconfirmed
GUEST, unregistred user!
单位需要44mm宽纸带输出数据,使用微打自带字体。已买新荣达MP-T16-PC型,使用厂方驱动,无法满足要求(内置字体、点阵)。说明书上(http://www.rd-cn.com/printer/MP-T1.asp)有打印命令详解:汉字库调出命令(FS S)、纸进给命令等等。数据库及报表我已编好,就差打印。
请问,如何使用Delphi编程输出至并口微打?我从未编过控制硬件的程序,请详细一些,非常感谢!!!
 
首先你要把打印指令编写好,仔细阅读一下命令说明书,并口打印是直接向lpt写文件一样就可以了,我控件条码机类似,我是用一个memo1把指令写好add到memo1再用下面的代码一行行的写入到LTP1打印,希望对你有所帮助!
filehandle := fileopen('LPT1', fmOpenWrite);
prtstr := Memo1.Text;
filewrite(filehandle, prtstr[1], length(prtstr));
if filehandle > 0 then
begin
filewrite(filehandle, prtstr[1], length(prtstr))
end
else
begin
messagebox(handle, '打印端口出错!', '错误', MB_ICONHAND + mb_ok);
fileclose(filehandle);
end;
end;
fileclose(filehandle);
cbuf := '';
 
自己写打印指令好烦得,哎,俺当初还是使用了控件和打印驱动完成的
 
问题是我需要它自带的字体,如何实现?
 
呵呵 安装字体呗
 
没有独立的字体文件,就好像微打内部的固件。
 
创建一个文件,赋值为端口LPT1,然后用Writeln去逐行打印就可以了,
其实就是将端口模拟为文件操作。
 
请详细举例好吗?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部