默认报表预览窗体有功能“保存为文件”和“打开文件”，我用自定的预览窗体，如何实现

Question

用打开、保存对话窗体呀。
可以参考一下下面的函数；//将报表第iPageNo页存为BMP文件
procedure TFrmMyPreview.ReportSaveToBMPFile(sFileName :string; iPageNo :integer);
var
  E: TMetaFile;
  B: TBitmap;
begin
  E := QRPreview1.QRPrinter.GetPage(iPageNo); //想要第几页
  B := TBitmap.Create;
  try
    with TMetafileCanvas.Create(E, 0) do
    try
      B.Height := E.Height;
      B.Width := E.Width;
      B.Canvas.Draw(0, 0, E);
      B.SaveToFile(trim(sFileName));
    finally
      Free;
    end;
  finally
    B.Free;
  end;
end;

Answer 1

用打开、保存dialog控件，吧文件格式设定好了就行

Answer 2

再给你两个例子：
procedure MyForm.ButtonClick(Sender : TObject);
var
  AExportFilter : TQRHTMLDocumentFilter;
begin
   AExportFilter := TQRHTMLDocumentFilter.Create('REPORT.HTM');
   try
      MyReport.ExportToFilter(AExportFilter)
   finally
      AExportFilter.Free;
   end;
end;
var 
  QRFilter:TQRAsciiExportFilter;
begin
  QRFilter:=TQRAsciiExportFilter.Create('contract_c.rtf');
  try
    quickrep1.ExportToFilter(QRFilter);
  finally
    QRFilter.free;
  end;
end;