access 报表隔行底纹_access报表每隔多条记录添加一行空白行

在数据报表中,如果记录太多,可能不便于阅读和查找数据。

如果在主体中,每几条记录插入一个空白行,这样看起来就会舒服很多

在“主体”节中放置一个空白未绑定 的文本框(txtS)和一个“=1”的文本框(txtC)。

cc546971fd06464fdf8b1484b03d6827.png

在主体的格式化事件中添加以下代码。这样可以控制主体数据每个5条打印出一个空白行

Private Sub Detail1_Format(Cancel As Integer, FormatCount As Integer)

If Me.txtCounter.Value Mod 5 = 0 Then

Me.txtSpacer.Value = Space$(1)

Else

Me.txtSpacer.Value = Null

End If

End Sub

运行效果如图:

d49a0dacc5d3b975e0b1a6b858f0762c.png

当文本框控件(txtS)为空时,主体节会根据需求进行缩小,文本框(txtC)可以放在报表的“主体”中的任意位置,将文本框(txtS)的值设置为希望空白行在打印输出时所具有的高度。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
本想自动读取报表的纸张大小,但返回来值都是默认纸张的大小,所以用了<BR>Selest case 词句,但这样结果是纸张的类型不齐全。没有类型对应的纸张的在大小不能正确判断(此情况下,如果提供的参数不正确,报表结果将会变乱。此时只要调整一下参数。即得到正确的报表。)。如果有谁能解决此问题,请告知一声。 <P><P>以下为新的函数说明:<BR>==============================================================<BR>函数名:RepDetail_Format()<BR>调用报表必须使用控件:(文本框)<BR>txtRecord_NO 在主体节 可见 用于显示记录号,可选<BR>txtTotGrp 在主体节 不可见 =Count(*) 用于取得报表的总记录数,必须<BR>txtCurrentPage 在主体节 不可见 =[Page] 用于取得当前页数,必须<P>参数说明: RepName 报表名称 (当前报表可用 (Me), 其它报表可用:(Reports.报表名)引用),必须<BR>txtCurrentPage 报表主体节上的[txtCurrentPage]文本框控件 ,必须<BR>txtRecordNum 报表定义的私人变量 数据类型:Integer 用于记录数的递增,必须<BR>(注:在报表模块顶部声明 : Private txtRecordNum As Integer )<BR>txtTotGrp 报表主体节上的[txtTotGrp]文本框控件 ,必须<BR>IntPrintLen 报表打印的数。<BR>-----数据类型:Integer (注:不可超过每页允许的最大记录数),可选,(默认:25 )<BR>DouPageLine 报表主体记录部分打印长度。<BR>-----数据类型:Double (注:不可超过每页允许的最大记录数),可选,(默认:21 CM )<BR>FontSize 报表记录部分字号。<BR>-----数据类型:Integer (注:不可超过每页允许的最大记录数),可选,(默认:0 字号不变)<BR>txtRecord_NO 记录序号文本框名称。<BR>-----数据类型:String (注:不可超过每页允许的最大记录数),可选,(缺省为没有使用)<P><BR>使用方法:<BR>1,先定义一私人变量:Private txtRecordNum As Integer,必须<BR>2,报表主体节的格式化事件中调用(Detail_Format 事件)<BR><BR>调用方法:NextRecord=RepDetail_Format(RepName , txtCurrentPage.text , txtRecordNum , txtTotGrp.text , IntPrintLen)<BR>使用示例:NextRecord = RepDetail_Format(Me, [txtCurrentPage], txtRecordNum, [txtTotGrp], 20)<BR>本函数由 binuochao (许伟军) 完成。制作于2003-06-27 Email:[email protected] QQ:10077241<P><BR>=============================================================  

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值