procedure Tform1.btnSaveAsClick(Sender: TObject);
var
        ExportFilter : TQRAbstractExportFilter;
begin
        if SaveDialog1.Execute then
        begin
              if ExtractFileExt(savedialog1.FileName) = '.htm' then
              begin
                   ExportFilter := TQRHTMLDocumentFilter.Create   
                                   (SaveDialog1.FileName);
              end
              else
              begin
                     Application.MessageBox(
                     '无法处理您所要保存的文件类型,请您重新选择!',
                     '提示信息',
                      MB_OK + MB_ICONINFORMATION + MB_ICONINFORMATION + 
                      MB_DEFBUTTON1);
                     exit;
               end;
               ExportFile(quickrep1,ExportFilter,form1);
        end;
end;procedure ExportFile(qrep : Tquickrep; FileName : TQRAbstractExportFilter; sender : TForm);
begin
        try
                try
                        qrep.ExportToFilter(filename);
                except
                        on e : exception do
                        begin
                                Application.MessageBox(
                                pchar('文件保存错误!'#13'错误信息:' + 
                                e.Message),
                                '提示信息',
                                MB_OK + MB_ICONINFORMATION + MB_ICONINFORMATION 
                                + MB_DEFBUTTON1);
                                if not(qrep.Available) then sender.Close;
                        end;
                end;
        finally
                filename.Free;
        end;
end;