fastreport有这样两个事件啊,
procedure Tbq_print_newForm.frxReport1ProgressStart(Sender: TfrxReport;
ProgressType: TfrxProgressType;
Progress: Integer);
begin
end;
procedure Tbq_print_newForm.frxReport1ProgressStop(Sender: TfrxReport;
ProgressType: TfrxProgressType;
Progress: Integer);
begin
end;
可以实现你的要求.