fastreport转换为html

Question

if condition then
begin
    FileName:=GetExePath+'report\state.fr3';
    frxReport1.LoadFromFile(filename);
    ReportName:=GetExePath+ComboBox1.Text+'(单位)投诉受理问题统计一览表';
    myMemo := TfrxMemoView(frxReport1.FindObject('Memo1'));
    myMemo.Memo.text := ReportName;
    StrTime:=sdate+'  到  '+edate;
    myMemo := TfrxMemoView(frxReport1.FindObject('Memo20'));
    myMemo.Memo.text := StrTime;
    if frxreport1.PrepareReport then
    begin
      frxHTMLExport1.FileName:=ReportName;
      frxreport1.Export(frxHTMLExport1);
    end;
end
else begin
    filename:=GetExePath+'report\state1.fr3';
    frxReport1.LoadFromFile(filename);
    StrTime:=sdate+'  到  '+edate;
    myMemo := TfrxMemoView(frxReport1.FindObject('Memo20'));
    myMemo.Memo.text := StrTime;
    if frxreport1.PrepareReport then
    begin
      frxHTMLExport1.FileName:=GetExePath+'汇总报表';
      frxreport1.Export(frxHTMLExport1);
    end;
end
    frxReport1.ShowReport;
这是我的转换语句,第一次执行
 if frxreport1.PrepareReport then
    begin
      frxHTMLExport1.FileName:=ReportName;
      frxreport1.Export(frxHTMLExport1);
    end;
时正常，如果再次执行到
 if frxreport1.PrepareReport then
    begin
      frxHTMLExport1.FileName:=GetExePath+'汇总报表';
      frxreport1.Export(frxHTMLExport1);
    end;
时就出错

Answer 1

我自己搞定了，太简单了，在预览界面里可以直接导出html