Access的报表存在一个问题，无论你在设计视图中将控件对的看上去多么整齐，但预览的时候通过控件边框显示出来的表格线条仍然会出现错位现象，而通过报表的Line方法来画表格就没有这个问题了，而且在不用到临时表的情况下，画表格也是补空行的好办法。
附 件:
点击下载此附件
代 码:
|
'================================================================
'函数名称： ReportSheet
'功能描述： 简单报表中用来画表格并实现补空行，用于打印单据类每页样式固定的报表
'输入参数： rpt 必须的，报表对象，使用时用Me关键字引用
' RowsOfPage 必须的，每页要显示的记录行数
' Style 可选的，表格样式，0为网格式，1为横格式，2为竖格式
' HasColumnHeader 可选的，是否对列标题同样画表格
'返回参数： 无
'使用示例： 在窗体的Page事件中调用： ReportSheet Me,30
'相关调用：
'使用注意： 主体节中的控件必须是索引从左到右，可以通过选中主体节中的所有控件，然后剪切再粘贴的操作来处理
'兼 容 性：
'参考资料：
'作 者： 红尘如烟
'创建日期： 2010-9-17
'=================================================================
Public Function ReportSheet(rpt As Report, _
ByVal RowsOfPage As Integer, _
Optional ByVal Style As Integer = 0, _
Optional ByVal HasColumnHeader As Boolean = True)
Dim intI As Integer
Dim lngTop As Long '表格上边距，即报表页眉的高度
Dim lngBottom As Long '表格下边距，报表页眉的高度 ＋主体节高度×每页要显示的记录数
Dim lngLeft As Long '表格左边距，第一个控件的左边距
Dim lngRight As Long '表格右边距，最后一个控件的左边距＋最后一个控件的宽度
Dim lngRowHeight As Long '行高，即主体节高度
Dim lngMaxIndex As Integer '主体节控件最大索引值
lngRowHeight = rpt.Section(acDetail).Height
lngMaxIndex = rpt.Section(acDetail).Controls.Count - 1
lngTop = rpt.Section(acPageHeader).Height
lngBottom = lngTop + lngRowHeight * (RowsOfPage)
lngLeft = rpt.Section(acDetail).Controls(0).Left
lngRight = rpt.Section(acDetail).Controls(lngMaxIndex).Left + rpt.Section(acDetail).Controls(lngMaxIndex).Width
If HasColumnHeader Then
RowsOfPage = RowsOfPage + 1
lngTop = lngTop - lngRowHeight
End If
'样式为1（竖线格样式）时不画横线
If Style <> 1 Then
For intI = 0 To RowsOfPage
rpt.Line (lngLeft, lngTop + lngRowHeight * intI)-(lngRight, lngTop + lngRowHeight * intI)
Next
End If
'样式为2（横线格样式）时不画竖线
If Style <> 2 Then
For intI = 0 To lngMaxIndex
rpt.Line (rpt.Section(acDetail).Controls(intI).Left, lngTop)-(rpt.Section(acDetail).Controls(intI).Left, lngBottom)
Next
'在最右边画竖线
rpt.Line (lngRight, lngTop)-(lngRight, lngBottom)
End If
End Function
|
