謝謝

Hi zhczm,    Hi:    http://delphi.ktop.com.tw/topic.php?topic_id=42555 參考上面文章，並修改如下 先行定義全域變數 Temp_Total,Total_Page， 在 QRCompositeReport Prepare 前將該 Temp_Total := 0; 在每一個 QuickReport OnStartPage 事件中，INC(Temp_Total) 在 QRCompositeReport Prepare 後將該 Total_Page := Temp_Total; 然後在 QRCompositeReport.Preview 時，即可使用 TOTAL_PAGE 當作總頁數。

procedure TForm1.Button1Click(Sender: TObject);}
begin
    Temp_Page := 0;
    QRCompositeReport1.Prepare;
    Total_Page := Temp_Page;
    QRCompositeReport1.Preview;
end;    procedure TForm1.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
    Inc(Temp_Page);
end;    procedure TForm1.QRLabel3Print(sender: TObject; var Value: String);
begin
    Value := IntToStr(Total_Page);
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman