提前了五次，都没满意回答啊！ ( 积分: 100 )

zengwg · 2005-09-02

我用Printer控制套打，从数据库中逐条取记录，逐条打印，这样在托盘区的打印机图标中，点开，可以看到非常多的打印任务（一条记录一个）。我是这样写的：
printer.begin
doc;
...
...
printer.enddoc.
现在，我希望打印任务一次全部生成，即在打印机中只出现一个任务，怎么写？请多指教！

zengwg · 2005-09-02

我用Printer控制套打，从数据库中逐条取记录，逐条打印，这样在托盘区的打印机图标中，点开，可以看到非常多的打印任务（一条记录一个）。我是这样写的：
printer.begin
doc;
...
...
printer.enddoc.
现在，我希望打印任务一次全部生成，即在打印机中只出现一个任务，怎么写？请多指教！

zj_mpy · 2005-09-03

我做程序也有5、6年了，仍然觉得自己很菜。

雪狐狸 · 2005-09-03

呵呵，不是不回答
其实我昨晚就看到你的这个帖子了
但我打印都是用控件的，不用Printer
所以不敢冒然回答
但我看你的这个需要
也可以使用报表类控件啊，那样不就可以实现你想要的了么？

hfghfghfg · 2005-09-03

老兄
你要做什么
不分页吗。
如果只是输出文字可以
用 copy 1.txt prn
或直接向打印口输出文字

chenybin · 2005-09-06

Call begin
Doc to initiate a print job. If the print job is sent successfully, the application calls EndDoc to end the print job. The print job won't actually start printing until EndDoc is called.
他是起来一个打印任务，不会把它放到循环里面去了吧

app2001 · 2005-09-06

你代码贴多一点，这么谁看得明白啊

sanqou · 2005-09-06

用Printer打印，遇到需要折行的字段，很不好处理。

江南大米 · 2005-09-06

从来没留意过这个问题，我一般用下面的方法打印
var
f:textfile;
begin
AssignFile(F, 'COM1');
try
rewrite(f);
writeln(f,'打印测试');
finally
closefile(f);
end;
end;

devblog · 2005-11-04

分页打不行吗？
printer.begin
doc
dataset.open;
while not dataset.eofdo
begin
....
dataset.next
end;
printer.enddoc;
---------------------
http://www.devblog.org

lt66 · 2005-11-04

主要是：
printer.begin
doc;
全部写玩你的打印...
再printer.enddoc.

提前了五次，都没满意回答啊！ ( 积分: 100 )

zengwg

Unregistered / Unconfirmed

zengwg

Unregistered / Unconfirmed

zj_mpy

Unregistered / Unconfirmed

雪狐狸

Unregistered / Unconfirmed

hfghfghfg

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

sanqou

Unregistered / Unconfirmed

江南大米

Unregistered / Unconfirmed

devblog

Unregistered / Unconfirmed

lt66

Unregistered / Unconfirmed

Similar threads