因為使用者要求報表中的明細表格必須印滿, 所以在明細下加一個 Child Band

然後在 Foot Band BeforePrint 加入如下的

procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
begin
whi
Engine.ShowBand(child1);
end;

雖然只顯示一次, 可是報表跑一段時間後出現 Stack Overflow 的錯誤, 然後程式就自殺了.

原來希望補滿空白的 Script 如下

procedure Footer1OnBeforePrint(Sender: TfrxComponent);
begin
while Engine.freespace >20 do
begin
Engine.showband(child1)
end;
end;

var
PageLine: integer; //在現在頁列印到第幾行
PageMaxRow: integer=15; //設定每頁列數

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := mod PageMaxRow;
if (PageLine = 1) and ( > 1) then
Engine.newpage;
end;

//Footer1高度設為0

procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
while i < PageMaxRow do begin
i := i 1;
Engine.ShowBand(Child1); //印空白表格
end;
end;

begin
end.

感謝您的回覆

此種處理方式我也有想過，網路上也有相關的程式碼，利用程式指定固定的資料筆數

不過很可惜的是我的 Detail Band 是會隨著內容的多寡而伸展的

所以每頁的列印數量會有所不同而無法使用此一技巧。

目前光是在 Footer Band BeforePrint 處理顯示一個 Child Band 就會出問題

更別說要測試判定 FreeSpace 的高度的程式部份

現在還發現有人提報在 FR3 執行到 Footer Band 時 FreeSpace 就被歸零了的狀況。

真是一波多折

另外單純從程式的角度來看

該技巧也是在 Footer Band BeforePrint 中

用 Engine.ShowBand(Child1); 迴圈來處理

而我的狀況是只執行一次 Engine.ShowBand(Child1); 就會碰到 Stack overflow 的問題.

就算是我的 Detail Band 不會伸展也是一樣會出問題.

另外單純從程式的角度來看

該技巧也是在 Footer Band BeforePrint 中

用 Engine.ShowBand(Child1); 迴圈來處理

而我的狀況是只執行一次 Engine.ShowBand(Child1); 就會碰到 Stack overflow 的問題.

就算是我的 Detail Band 不會伸展也是一樣會出問題.

另外單純從程式的角度來看

該技巧也是在 Footer Band BeforePrint 中

用 Engine.ShowBand(Child1); 迴圈來處理

而我的狀況是只執行一次 Engine.ShowBand(Child1); 就會碰到 Stack overflow 的問題.

就算是我的 Detail Band 不會伸展也是一樣會出問題.