一个有关Quickrep报表保存的问题！真的很急啊！！！！大家帮忙看看

[chengangcsdn]

问题描述：
我在服务器上写了一段托盘程序用于夜间审核！
由于夜间审核会产生很多报表， 但由于酒店节约资源，所以没有夜间审核员。 所以我们现在的解决方法是：
服务器夜间产生的报表都保存起来。第二天上班以后才来根据夜间报表进行审核！
代码如下：
procedure Tw_AutoYS.btn8click();
var
sFileName:string;
PreDate:string;
serverTime:TDateTime;
begin
qrlabel12.Caption:='终结表' ;
qrlabel30.Caption:='制表人：'+'自动夜审';
qrlabel29.Caption:=datetimetostr(now);
ServerTime:=now;
preDate:=DateToStr(ServerTime-1);
sFileName:=preDate+'A试算表与终点表';
QuickRep3.Preview;
QuickRep3.QRPrinter.Save('C:\Inetpub\ftproot\'+sFileName);
/////上面代码加上QuickRep3.onPreview事件代码为保存报表。
end;
procedure Tw_AutoYS.QuickRep3Preview(Sender: TObject);
begin
/////////<-----------------------
end;
报表数据都是从数据库很多表中得到的最终数据集。
对数据操作都能很快完成。
问题是为什么保存一张报表大概要7分钟，而我有很多报表。大概就要30分钟左右了。
我试了一下，如果把保存报表的代码写在按钮里，而运行程序我去单按钮来保存的话，不到一分钟就能保存。
为什么我写成过程让它自动保存却要7分钟呢？
不知道我描述清楚没？若有疑问请回贴。真的很急啊！！！！

[78hgdong]

单按钮来保存就行了,写成过程让它自动保存代码看看?

[chengangcsdn]

没有人回答，自己解决了。

[chengangcsdn]

上面就是一个过程啊！只是我把过程名取成很像按钮就是了。
夜里人都没有，鬼去单击按钮啊。

[chengangcsdn]

是我自己犯糊涂了。
上面代码也没有错。能实现报表的保存。
但可能是QuickRep3.Preview事件费时吧。
我把QuickRep3.Preview换成
QuickRep1.Prepare;
原来要执行30分钟的程序，现在只要2分钟就行了。

[78hgdong]

QuickRep1.Prepare;//保存前的准备工作

[caiso]

顶一下^_^