fastreport打印空白行的方法
来源:互联网 发布:手机淘宝首页打不开? 编辑:程序博客网 时间:2024/04/30 02:59
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;
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;
- fastreport打印空白行的方法
- 修改fastreport实现页尾补空白行或打印固定行数
- FastReport打印固定行
- FastReport设置0值打印时为空白
- FastReport打印
- VS2005空白项目添加打印信息的方法
- FastReport如何打印表格式的空行?
- FastReport如何打印表格式的空行?
- FastReport打印TListView数据的实现
- FastReport 2.5的安装方法
- 在fastreport中打印空白表格及小写金额转大写金额
- jasperreport1.3.2打印空白行
- FastReport打印空行
- FastReport直接打印.
- FastReport直接打印
- fastreport.net分栏打印
- FastReport.net 打印空行
- 报表打印FastReport.Ne
- Test
- 组件编程(7) Component DesignerAction(智能标记)
- fastreport3報表首列居中
- 组件编程(8) Component DocumentDesigner(文档设计器)
- 组件编程(9) 结束篇
- fastreport打印空白行的方法
- Blog Sites URL
- Roller2.1的配置手册
- 另類D6+fastreport3分組報表
- 自定义的Title(VBS版本)
- 將FASTREPORT報表從數據庫存入取出
- 自我复制到系统目录中,并写注册表,使程序开机自动运行
- 串口通讯,关于javax.comm的安装配置
- 啟動時以0.5秒速度動畫顯示窗體