我的報表是表格式的，請問如果數據沒有填滿一張表格的時候，如何用空表格填滿剩餘的空行，達到指定的列數？fr3用起來跟2好像不太一樣，謝謝！

FastReport 3.X

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.

FastReport 2.X 在資料字典設定變數 PageMaxRow 設定每頁列數。 PageLine 在現在頁列印到第幾行。 每 PageMaxRow 筆新自動跳頁(在Band的OnBeforePrint)

  PageLine := [line#] mod PageMaxRow;
  if (PageLine = 1) and ([line#] > 1) then
    newpage;

一頁列印15筆，不足筆數的列印空白表格列的方法 Master1 detail1----固定印PageMaxRow筆，有表格 detailFooter1---在OnBeforePrint輸入下列程式碼，高度設為 0 child1---空白表格 **detailFooter1.OnBeforePrint

  i := PageLine;
  if i = 0 then
    i := PageMaxRow;
  while i < PageMaxRow do begin
    i:=i 1;
    ShowBand(Child1);
  end;

發表人 - chinyu 於 2005/02/15 16:38:20

謝謝您的熱情,把兩种都寫出來了.