팁/테크 게시판이나 리소스 자료실에 제가 작성한 관련글 있습니다. 참고하세요..^^



<!--CodeS-->


interface

uses
   ..., QuickRpt, QRPrntr, ...;

type
   TForm1 = class(TForm)
               :
               :
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   Form1: TForm1;

implementation

uses
   gfunc;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   // 미리보기 화면을 gfunc에서 재 정의한 걸로 교체시킨다.
   RegisterPreviewClass(TQRQRPPreviewInterface);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

   QuickRep1.Preview;
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
   if not Assigned(QuickReport2) then
      QuickReport2 := TQuickReport2.Create(Self);

   QuickReport2.Preview;

end;

end.
<!--CodeE-->

<!--CodeS-->

unit gfunc;

interface

uses
   Forms,
   Controls,
   Dialogs,
   QRPrntr,
   QuickRpt,
   StdCtrls,
   Classes,
   SysUtils,
   QRPrev;

type
   TQRQRPPreviewInterface = class(TQRPreviewInterface)
      procedure QRPreviewProgressUpdate(Sender: TObject; Progress: Integer);
   public
      function Show(AQRPrinter: TQRPrinter): TWinControl; override;
      function ShowModal(AQRPrinter: TQRPrinter): TWinControl; override;
   end;

implementation

procedure TQRQRPPreviewInterface.QRPreviewProgressUpdate(Sender: TObject;
   Progress: Integer);
begin

   TQRStandardPreview(TQRPreview(Sender).Parent).StatusBar.Panels[0].Text := intTostr(Progress) + '%';

   try
      if TQRPreview(Sender).PageNumber = 1 then // 첫페이지 일때만 zoom을 조정한다.
         TQRPreview(Sender).Zoom := 100;
   except
   end;

end;

function TQRQRPPreviewInterface.Show(AQRPrinter: TQRPrinter): TWinControl;
begin

   Result := TQRStandardPreview.CreatePreview(Application, AQRPrinter);
   try
      //progress이벤트 재정의
      TQRStandardPreview(Result).QRPreview.OnProgressUpdate := QRPreviewProgressUpdate;
      TQRStandardPreview(Result).Zoom100.Down := true;
      TQRStandardPreview(Result).ZoomToWidth.Down := false;

      TQRStandardPreview(Result).Show;
   except
      TQRStandardPreview(Result).Free;
   end;

end;

function TQRQRPPreviewInterface.ShowModal(AQRPrinter: TQRPrinter): TWinControl;
begin
   Result := TQRStandardPreview.CreatePreview(Application, AQRPrinter);
   try

      TQRStandardPreview(Result).QRPreview.OnProgressUpdate := QRPreviewProgressUpdate;
      TQRStandardPreview(Result).Zoom100.Down := true;
      TQRStandardPreview(Result).ZoomToWidth.Down := false;

      TQRStandardPreview(Result).FormStyle := fsStayOnTop;
      TQRStandardPreview(Result).Visible := False;

      TQRStandardPreview(Result).ShowModal;
   except
      TQRStandardPreview(Result).Free;
   end;
end;

end.

<!--CodeE-->