报表问题

Question

procedure GenerateRep(quickrep:TQuickRep;lblPageCount:TQRLabel;mode:integer;filename:string);
begin
  with quickrep do
  begin
   Prepare;
   lblpagecount.caption:=inttostr(QRPrinter.pagecount);
   if mode=RPT_SAVE then
   begin
    QRPrinter.Compression:=false;
    QRPrinter.Save(filename);
    qrprinter.Free;
    qrprinter:=nil;
   end
   else
   begin
    QRPrinter.Free;
    qrprinter:=nil;
    Previewmodal;
    printer.Free;
    qrprinter.Free;
    qrprinter:=nil;
   end;
  end;
end;