【源码】报表分页总计及补空行示例 - Office中国论坛/Access中国论坛

'=======================================================================
'函数名称： 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

复制代码