fastreport打印空白行的方法

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高度設為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;

阅读更多
文章标签: integer
个人分类: DELPHI技术资料
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭