装入的QRP文件不能用TQRXLSFILTER导出(100分)

程序要打开先前保存的QRP文件，并可以导出到其他文件。
下面是主要的代码，其中formpreview是自定义的中文预览窗体。
然后放上QREXCELFILTER，保存时也没提示错误，但没有生成任何文件。
环境是D5+QUICKREPORT3。5
procedure TForm1.Button2Click(Sender: TObject);
var fqrprinter:Tqrprinter;
begin
with TOpenDialog.Create(Application)do
try
Title := '读取报表';
Filter := '报表文件' + ' (*.' +cQRPDefaultExt + ')|*.' + cqrpDefaultExt;
if Execute then
if FileExists(FileName) then
begin
FQRPrinter := TQRPrinter.Create;
fqrprinter.Load(filename);
formpreview.qrpreview.qrprinter:=fqrprinter;
formpreview.pagecount:= formpreview.qrpreview.QRPrinter.PageCount;
formpreview.updateinfo;
formpreview.PrintSetup.Enabled := False;
//打印设置按钮
formpreview.Print.Enabled := true;
//打印按钮
formpreview.ShowModal;
end
else
ShowMessage('文件不存在！');
finally
free;
end;
end;

ding

Liuly斑竹请进，多谢了
我发现只有用TQUICKREP.QRPRINTER里的EXPORTTOFILTER方法才起作用。
使用TQRPREVIEW。QRPRINTER。EXPORTTOFILTER则无效，发现源码中的这句出问题
if assigned(FOnExportToFilterEvent) then
FOnExportToFilterEvent(AFilter);
如果动态建立一个报表QREP1，然后QREP1.QRPRINTER.LOAD(FILENAME)又出错