我使用一個form,裡頭罷個TQRPreview元件 -->該form用來做自定的report preview
而我有2個以上的form,裡頭放置了QuickRep元件
最後使用TQRCompositeReport元件將各個form報表組合起來
大概程式碼如下
xxx.unit :
QRPreview1: TQRPreview;

form1.unit
QuickRep1: TQuickRep;
form2.unit
QuickRep1: TQuickRep;
.....
formN.unit
QuickRep1: TQuickRep;

bind.unit:
QRCompositeReport1: TQRCompositeReport;
...
...
...
QRCompositeReport1.Prepare;

//i := FormPreviewUI.FormPreview.QRPreview1.QRPrinter.PageCount;
-->上述..會發生violation access的錯誤 ..


QRCompositeReport1.Preview;-->即去將各form的QuickReport Add起來

請問,我要如何在TQRCompositeReport preview 的時候將總頁數抓出,並置於各個分別form裡的QuickRep元

請遇過此問題人,不吝賜教..please...tks...

1.設立兩個全域變數
...
private
{ Private declarations }
TotalPage,CurrentPage : Integer;
Public
...

2.在每個 QuickRep 的OnStartPage事件加入以下程式碼
procedure TForm1.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
Inc(CurrentPage);
end;

3.在每個 QuickRep的PageHeader加入一個QRLabel並於其OnPrint事件加入以下程式碼
procedure TForm1.QRLabel7Print(sender: TObject; var Value: String);
begin
Value := IntToStr(CurrentPage) '/' IntToStr(TotalPage);
end;

4.呼叫預覽時
procedure TForm1.Button1Click(Sender: TObject);
begin
...
CurrentPage := 0;
QRCompositeReport1.Reports.Clear;
QRCompositeReport1.Prepare;
TotalPage := CurrentPage;
CurrentPage := 0;
QRCompositeReport1.Preview;
end;

PS:相同程式碼可共用，只要指定相同事件即可

------
Fishman