如何能够在NT/2000下只打印文本(字符输出使用硬字库)1(100分)

  • 主题发起人 主题发起人 delp
  • 开始时间 开始时间
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
目前使用Canvas打印速度及不理想,真怀念DOS和UNIX终端呀
 
有一个好象是RAWPrint控件可以做到
 
老兄,我不想使用控件。
 
snappy 老兄,没想到RAWPrint竟然送源码,20分先行送上,如果你解释一下,我余下80分立即奉献
 
不好意思,不知道
 
stringlist.savetofile(temp.txt);
copy temp.txt prn//myPrint.bat
ShellExecute(self.Handle, 'open', pchar(ExePath + 'PrintData/myPrint.bat'), '', pchar(ExePath + 'PrintData/'), SW_HIDE);
 
我在一家医院就是这样做的。
好处在于稳定。而且托盘上会有打印任务可以管理
 
还有其他好办法吗?
 
能不能直接使用打印设备什么的,而且可以通过网络打呢?
 
var
F: TextFile;
程序开始:
AssignFile(F, 'prn');//也可以是 lpt1: lpt2: 这样的,如果是网络打印机,可以是//aaa/ppp
Rewrite(F);
每次输出:
Write(F,字符串);
程序结束:
CloseFile(F);

 
我最初也是用
AssignFile(F, 'prn')
后来改成了
copy temp.txt prn//myPrint.bat
应为temp.txt有几十k大,我还要保留打印日志//保存temp.txt
 
多人接受答案了。
 
后退
顶部