H HappyGG Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-27 #1 我做了一个简单的帐单打印的程序（主要是有地址、姓名、编号），很简单的，需要打印1000多份，但是每次打印机打印的时候，总是一个一个任务的完成，而不是批量的处理这些打印文件，如何实现批量打印？跪求！
T tkggai Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-27 #2 告诉你个最简单的办法:一张帐单发一个打印命令(循环)
H HappyGG Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-27 #3 我的意思是打印机的状态任务还是一个一个的，我打印1000多页就是1000多个任务，能否就和打印word是的，打印任务不便，只是变页数？
在 在世寻欢 Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-27 #4 (*设置Printer字体大小,字体等属性*) Printer.begin Doc; for i:=1 to 1000do begin (*在此用Printer对象的Canvas属性的各种方法实现打印*，如遍历数据表打印其中内容); Printer.NewPage;//换页 end;
(*设置Printer字体大小,字体等属性*) Printer.begin Doc; for i:=1 to 1000do begin (*在此用Printer对象的Canvas属性的各种方法实现打印*，如遍历数据表打印其中内容); Printer.NewPage;//换页 end;
S sbzldlb Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-27 #6 使用 printer.begin doc printer.canvas.textout(y,x,输入字段) 。。。 printer.enddoc 直接控制。 发出命令换页： AssingFile(lpt,'lph1'); reWrite(lpt); writeln(lpt,打印内容); ... write(lpt,#10);//<--换行命令 。。。 write(lpt,#12);// <--换页命令 。。 closefile(lpt);
使用 printer.begin doc printer.canvas.textout(y,x,输入字段) 。。。 printer.enddoc 直接控制。 发出命令换页： AssingFile(lpt,'lph1'); reWrite(lpt); writeln(lpt,打印内容); ... write(lpt,#10);//<--换行命令 。。。 write(lpt,#12);// <--换页命令 。。 closefile(lpt);
G grwriter Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-04 #7 试试 Grid++Report, 有直接的功能实现即打即停，连续打印，参考例子Invoice。主页：http://www.rubylong.cn
