如何在fr3.15里实现空表格打印

Question

如题，因为FR为3.15版的。
好像    while FreeSpace >= 38 do
        ShowBand(bandname);
这样的代码不能用，现在如果要实现打印空表补全页面的效果要如何实现哩？？？
在GOOGLE里找了半天都无果，3.15的DEMO里也没找到像2.X版的DEMO里的"Print Empty grid"
望达人解答下！！！

Answer 1

FastReport 3.X
var
  PageLine: integer;       //在現在頁列印到第幾行
  PageMaxRow: integer=15;  //設定每頁列數procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  PageLine := <line> mod PageMaxRow;
  if (PageLine = 1) and (<line> > 1) then
    Engine.newpage;
end;//Footer1高度設為0procedure 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;

Answer 2

i := iif(PageLine=0, PageMaxRow, PageLine);
  while i < PageMaxRow do begin
    i := i + 1;
这句好像控制不了BAND打印啊，，，555，，，HELP。
实验了半天还是有没有达到功能！

Answer 3

用这段代码实现了。镜花水月的那段我依旧没搞明白。汗！procedure Footer1OnBeforePrint(Sender: TfrxComponent);
begin
 while Engine.freespace >90 do
 Engine.showband(bandname)
end;