个人的一点体会,让大家见笑了。
在报表设计中,报表的控件有几个属性,结合起来用觉得还是有意思。那就 “可见”、“可以缩小”、“运行总和”。
为了让报表每间隔 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
结果如图:
返正,如果你能想象出更多花招,比如在页眉上及其他什么部位上,整点其他东西,应该都可以使用出来,呵呵……