[access报表]报表打印每隔n行间隔标记
时 间:2010-04-12 17:02:31
作 者:陈福祥 ID:6728 城市:江津
摘 要:从网上下了本书,名叫“Access2007宝典”,看看之后,收获是相当的大。本来一直对报表这个东西有点不熟悉,现在也能跟着别人的指点,整点花样出来,还是有点高兴的。
正 文:
个人的一点体会,让大家见笑了。
在报表设计中,报表的控件有几个属性,结合起来用觉得还是有意思。那就 “可见”、“可以缩小”、“运行总和”。
为了让报表每间隔 n 行打印一个东东出来,利用上述三种属性就可做了。
首先,在报表主体的正常控件下方添加两个文本框控件,一个作为计数用,一个作为让报表间隔 n 行整个标记出来用。
将记数用的文本框的“运行总和”属性设为“全部之上”,“可见”设为“否”,“可以缩小”属性设为“是”,“控件来源”设为“=1” 。
将作为标记用的文本框的“可见”属性设为“是”,“可以缩小”属性设为“是”,控件来源不要管,让它为未绑定控件。
将主体节的“可以缩小属性”设为“是”。
然后,你就可以在报表的主体节的 Format 事件过程中为所欲为了。比如我输入下列代码:
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Dim X1 As Integer, X2 As Integer, Y1 As Integer
Dim Co As Integer
If (Me.txt计数 Mod 6) = 0 Then
Me.txt空行 = String(300, 45)
X1 = Me.txt空行.Left
Y1 = Me.txt空行.Top + Me.txt空行.Height / 2
X2 = Me.txt空行.Left + Me.txt空行.Width
'Me.Line (x, y)-(x1, y)
For Co = X1 + 0.5 * 1440 To X2 Step 0.5 * 1440
Me.Circle (Co, Y1), 0.15 * 1440
Next
Else
Me.txt空行 = Null
End If
End Sub
结果如图:
返正,如果你能想象出更多花招,比如在页眉上及其他什么部位上,整点其他东西,应该都可以使用出来,呵呵……
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)