FastReport 明細表格補滿空白

bestlong

1. procedure Footer1OnBeforePrint(Sender: TfrxComponent);
   
2. begin
   
3.   while Engine.freespace >20 do
   
4.   begin
   
5.     Engine.showband(child1)
   
6.   end;
   
7. end;

複製代碼

将 footer 的 height = 0
ok

bestlong

上列方法在網路上看到有人說在 FR3 中不可使用
是因為到了  PageFooter 時 FreeSpace 就變成 0 了.

bestlong

若是用程式判斷固定資料行數，若是在會 Stretched 的狀況下有可能會因為列印補滿固定資料行數而超出一頁。

bestlong

困擾多時的問題終於解決了

進入報表設計工具，在報表中加入一個 footerband 然後因為這個 footer 不需要顯示所以將 height 設為 0

接著使用下列程式碼:

1. procedure Footer1OnBeforePrint(Sender: TfrxComponent);
   
2. var i:integer;                                 
   
3. begin
   
4.   if int(Engine.FreeSpace/Child1.Height) > 0 then
   
5.   begin
   
6.     for i := 1 to int(Engine.FreeSpace/Child1.Height) do
   
7.     begin
   
8.       Engine.ShowBand(Child1);
   
9.     end;              
   
10.   end;            
    
11. end;

複製代碼

此方法是我在 FastReport 4.2 下解決