关于打印计数的问题??

Question

两个办法：
1.你写一个自定义的预览界面，这样可在Print的按钮的事件中就可知道用户是否按了此键。
2.你在Delphi的vcl中该按钮的事件中加入判断代码就可以了。

Answer 1

你可在　Program Files\Borland\Delphi6\QuickRpt\QrPrev.pas 中，找到打印按钮的事件:Procedure TQRStandardPreview.PrintClick(Sender: TObject);
中加入代码就可以了。如：设一变量　Cnt :Integer;　Cnt :=Cnt+1;每点一次按钮就加1。
够清楚吧，兄弟，给分吧！

Answer 2

设一递增变量就成
var
Ls_count:integer;
begin
ls_count:=ls_count+1;
...
....