FastReport分組頁碼

這裡的情況適用於FastReport2.53版本。

報表頁碼一般情況下就象在Word裡一樣不用費什麼腦筋，FastReport裡直接從系統變數可以得到。但特殊情況下就無法輕鬆得到了。

這裡談的是分組頁碼的問題，就是在報表分組的情況下。首先是每個分組強制分頁，然後頁碼重新計數。比如5頁分為二組，一組佔了2頁，另一組佔3頁。平常顯示只要

1/52/53/54/55/5

這時要變成

1/2
2/21/32/33/3

 

第幾頁這是很容易算出來的，用個變數來表示頁碼，分組結束後重新算頁碼就行了，痛點就在分組的頁數，基本思路就是利用兩遍報表，第一次得到各個分組的總頁數，第二次再顯示之。

 

首先定義三個變數，GPage用來表示頁碼初始值為1，PageList用來存放分組的頁碼數初始值為{0}，GIndex用來計算分組的索引初始值為0，FGIndex用來第二次遍曆時計算分組索引，其實這個與GIndex可以共用一個，但為了清晰起見分開用。

 

在PageFooter的BeforePrint裡寫

GPage := GPage + 1;

在GroupFooter的BeforePrint裡寫

if FinalPass then //二次遍曆時增加分組索引

FGIndex := FGIndex + 1

else

begin

setLength(PageList,GIndex +
1);

PageList[GIndex] := Gpage;
//存放分組的總頁數

GIndex := GIndex + 1;

end;

GPage := 0;

 

這樣所有的東西都有了，在顯示頁碼的Memo裡填[GPage]。

在顯示頁數的Memo下面指令碼段裡寫

if not FinalPass then exit;

MemoPageCount.Lines[0] :=
PageList[FGIndex];

（MemoPageCount
是這個Memo的名字)

 

這樣就達到上述的分組頁碼的要求了。