另一个是在系统设置--报表中心里面选择单据类型后设计课件.docVIP

设计报表 有两个地方可以设置，一个是在添加销售单、采购单等的时候可以打印，另一个是在系统设置--报表中心里面选择单据类型后设计 1、如何进入设计界面 1 3、 设计界面 2 4、 调节控件显示的宽度 2 5、 控件内容是否自动换行 3 6、 设置打印页面 5 7、 设置打印空白行 7 复制进去代码是第一步； 8 第二步是添加子band控件 8 第三步是添加footer控件， 8 第四步，给主数据控件绑定事件 9 一、添加单据时设计报表：如入库单 1、如何进入设计界面 添加采购信息，添加采购商品，数量等后不要保存，点击打印会出来一个打印菜单，选择设计模式 再次点击设计模式，选择默认模板，进入设计界面 系统设置--报表中心--选择单据类型，点击设计按钮进入设计界面 设计界面 调节控件显示的宽度 同时选中需要改变宽度的控件（Shift加鼠标左键可以同时选中多个，如果只改变一个，鼠标左键单击就可以），如图1；如果只选择一个，可以用按钮的方式（Shift加 “+”放宽，加“-”放窄），也可以用鼠标放在控件的右边线垂直中间（中间有个小黑点的位置），拖动宽度，如图2 图1 图2 控件内容是否自动换行 WordWrap属性设置为True是自动换行，False为不自动换行（图4） StrechMode 对象伸缩的行为，图1，对第一列显示序号有作用，选择为smMaxHeight，将和后面的内容保持同一高度，图2，选择为smDontStrech，将不和后面的内容保存同一高度，如果后面有换行的话，内容将层次不齐（图3） 图1 图2 图3 图4 设置打印页面 宽度高度以及纵向打印还是横向打印（图1），如果要固定页面高度，那么必须设置是否无限高度、无限宽度等（图2） 图1 图2 设置打印空白行 （设置每页打印的行数，和页面高度配合设置，如果页面固定高度行数太多显示不完，会分页显示；如果不固定高度，显示会正常，这个要求纸是连贯的，不是一张一张的） 代码如下： var PageLine: integer; //在现在页列印到第几行 PageMaxRow: integer=8; //设定每页列惺? 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; procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin PageLine := line mod PageMaxRow; if (PageLine = 1) and (line 1) then Engine.newpage; end; 复制进去代码是第一步； 第二步是添加子band控件 第三步是添加footer控件， 控件里面的“尾”，右边是控件效果，需要把尾控件的高度设置为0，可以鼠标拖动，也可以设置属性里的height 然后给它绑定事件：选中footer，然后点击事件，在OnbeforePrint后面选择Footer1OnBeforePrint 第四步，给主数据控件绑定事件 ，子band控件上面的控件就是主数据控件，选中band6，点击事件，OnbeforePrint 选择MasterData1OnBeforePrint 完成