[sos]fastreport中如何设置每页固定打印行数及打印grid风格报表中如何补全空行为满页？

billcsh 2003-08-19 08:26:27

如题。谢谢！

...全文

66 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

billcsh 2003-08-19

打赏
举报

回复

如何安装tcustomdata组件？它相当于datamodul

WWWWA 2003-08-19

打赏
举报

回复

1、if ([line#-1]>1) and ([line#-1] mod 你指定条数=0) then NEWPAGE
2、加一CHILD BAND,其格式与MASTERDATA一致，先计算出已打印几条记录,然后在MASTER FOOTER的 BEFORE PRINT中,FOR I:=1 TO 每页条数-已打印条数,
SHOWBAND(CHILD1)

用fastreport打印固定行数报表实例，在DELPHI7，fastreport3.0中运行成功，没用到其它第三方控件。内有EXE，下载只可运行查看效果。

fastreport固定行数分页不足补空白行，完整的demo，下载就可以用

本课程主讲项目的功能模块主要有：用户管理、角色管理、菜单管理、权限管理、组织机构管理、特权管理、用户角色管理、角色权限管理、日志管理、报表统计、智能客户端、报表设计器和按纽权限组。另外像ADO.NET、分层、事务、视图、委托、反射、WebService、FastReport.NET、Dev、RDLC、EpPlus操作EXCEL等知识点全部贯穿在视频中讲解

给朋友帮忙做的一个报表打印程序，现将完整源码奉献给大家，可直EXE接运行，比较适合初学者学习Delphi 开发桌面程序学习，控件用到 fastreport，raize，Ehlib 主要介绍fastreport报表打印,数据库连接开发,程序注册等等，

StringGrid打印报表(FastReport) {*************StringGrid打印功能***********************************} (*uses unit: FR_Class, FR_View from (fast-Report) *) (*参数说明:printRow:每页打印的行数 *) (* styleType:边框类型 0:无边框,15:所有边框,18:底部画线 *) (* title:标题 *) (* FrmGrid:所在窗体 *) (*date:2005-04-24 *) (*author:kxy *) {******************************************************************} function GridPrint (Grid1:TstringGrid;printRow,StyleType:integer;Title:string;FrmGrid:TForm):boolean;//打印报表 var fr: TfrReport; ReportTitle,Masterdata,ColumnHeader,PageHeader,pageFooter:Tfrbandview; //栏目 MemoVT,MemoVC:Array of TfrMemoview; //列 TitleV ,dateV,pageV:TfrMemoview ; lineV:TfrlineView; //线 page:Tfrpage; //页 GridRow,GridCol,CurrRow,I,J,col:integer;//总的行数，列数，当前行 PageCount,pageRow:integer; //总共页数; Left,Top,Width,Heigth:integer; TempLeft,TempWidth:integer; printDate :string; begin screen.Cursor := crHourGlass; GridRow := Grid1.RowCount; GridCol := Grid1.ColCount; CurrRow := 0; pageRow := printRow; try fr := TfrReport.Create(FrmGrid); fr.StoreInDFM := True; PageCount := GridRow div printRow ; //计算出页数 for I := 0 to PageCount - 1 do begin left :=0; top :=20; width :=757; heigth :=25; fr.Pages.Add; page := fr.Pages[i]; if I = 0 then //第一页增加标题; begin {标题栏} ReportTitle := Tfrbandview.Create; ReportTitle.BandType := btReportTitle; ReportTitle.SetBounds(left,top,width,40); page.Objects.Add(ReportTitle); TitleV := TfrMemoview.Create; Titlev.SetBounds(0,top,width,30); Titlev.Alignment := (Titlev.Alignment and $FC) + 2;//居中 Titlev.Font.Name := '宋体'; TitleV.Font.Size := 16; TitleV.Memo.Add(title); page.Objects.Add(TitleV); {打印日期} dateV := TfrMemoview.Create; dateV.SetBounds(0,top + 40,width,30); dateV.Alignment := (dateV.Alignment and $FC) + 1 ;//右对齐 dateV.Font.Name := '宋体'; dateV.Font.Size := 9; printDate :='打印日期:' + FormatDateTime('yyyy/mm/dd',Now) +' '; dateV.Memo.Add(printDate); page.Objects.Add(dateV); PageRow := PageRow - 4 ; //少打两行组成一个标题 Top := 60; end ELSE begin pageRow := PrintRow; Top := 20; end; for J:= 0 to PageRow + 1 do //每页的行数 begin {列头} IF J = 0 then //第一行打行列标题栏 begin ColumnHeader := Tfrbandview.Create; ColumnHeader.BandType := btColumnHeader; ColumnHeader.SetBounds(left,top,width,heigth); page.Objects.Add(ColumnHeader); SetLength(MemoVT,GridCol); TempLeft := 20; for col:= 0 to GridCol - 1 do begin MemoVt[col] := TfrMemoview.Create; MemoVt[col].Font.Name := Grid1.Font.Name; MemoVt[col].Font.Size := Grid1.Font.Size; MemoVt[col].Memo.Add(Grid1.Cells[col,0]); MemoVt[col].FrameTyp := StyleType; //显示边框 TempWidth := Grid1.ColWidths[col]; //宽度与Grid中的宽度一致 MemoVt[col].SetBounds(tempLeft,top ,tempWidth,heigth); templeft := tempLeft + tempwidth; page.Objects.Add(MemoVt[col]) end; end Else begin top := top + heigth; Inc(CurrRow); TempLeft := 20; SetLength(MemoVc,GridCol); for col :=0 to GridCol - 1 do begin MemoVc[col] := TfrMemoview.Create; MemoVc[col].Font.Name := Grid1.Font.Name; MemoVc[col].Font.Size := Grid1.Font.Size; MemoVc[col].Memo.Add(Grid1.Cells[col,CurrRow]); MemoVc[col].FrameTyp := StyleType; //显示边框 TempWidth := Grid1.ColWidths[col]; //宽度与Grid中的宽度一致 MemoVc[col].SetBounds(tempLeft,top ,tempWidth,heigth); templeft := tempLeft + tempwidth; page.Objects.Add(MemoVc[col]); end; end; if currRow >= GridRow then break; end; {页码} pageV := TfrMemoview.Create; pageV.Font.Name := '宋体'; pagev.Font.Size := 10; pagev.FrameWidth := 2; //pagev.FrameTyp := 24 ; pagev.Alignment := (pagev.Alignment and $FC) + 2;//居中 pageV.Memo.Add('第'+ inttostr(I + 1) + '页 (共' + inttostr(PageCount) + '页)' ); pagev.SetBounds(0,1025,750,20); page.Objects.Add(pageV); end; fr.ShowReport; screen.Cursor := crDefault; finally fr.Free; end; end;

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章