各位先進：     小弟使用CompositeReport來合併四張特殊的報表，遇到要取得總頁次的問題，請問使用要如何取得呢?? 寫程式是為了讓生活更精彩

------
JamesLin

Hi:    先行定義全域變數 Temp_Total,Total_Page， 在 QRCompositeReport Prepare 前將該 Temp_Total := 0; 在 QRCompositeReport Prepare 後將該 Total_Page := Temp_Total; 在 QuickReport OnStartPage 事件中，INC(Temp_Total) 然後在 QRCompositeReport.Preview 時，即可使用 TOTAL_PAGE 當作總頁數。

procedure TForm1.Button1Click(Sender: TObject);
begin
    Query1.Close;
    Query1.Open;
    Temp_Page := 0;
    QuickRep1.Prepare;
    Total_Page := Temp_Page;
    QuickRep1.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