添加一个MEMO控件，然后设置一个totalPages 就可以了

页脚上放一个MEMO，内容为[PAGE#]

我就是希望在ShowReport的时候把页脚上的[TotalPages]的值读取出来，
并显示在另一个Form的一个Label上

最笨方法就是在顯示紀錄之前,計算好每頁的行數,然後用RecordCount去除就可以了 ^_^

改它的源码，给TfrReport增加个属性，叫做TotalPages。

苯办法，在frReport1.OnBeginPage事件里放个变量
var
  PageCount: Integer;
procedure frReport1BeginPage(pgNo: Integer);
begin
  PageCount := pgNo;
end;

完成打印后再把PageCount拿来用就是了。