ACCESS报表控件整理代码

2024年3月18日发(作者：)

Option Compare Database

'=========================================

'作用: 为报表画线,统一各控件的宽度.高度.和间隙

'1.取主体和页面页眉第一个控件的高度height为标准,设置其他控件的高度.

'2.以主体的每一个控件的宽度width为标准,设置页面页眉相对应控件的宽度

'3.连接主体和页面页眉的控件,使其隙一致.

'==========================================

Public Function ReportSheet(rpt As Report, _

LeftControl As control, _

RightControl As control, _

Optional RowsOfPage As Integer, _

Optional sTYLE As Integer = 0, _

Optional HasColumnHeader As Boolean = True)

画线设置

报表 '

'On Error Resume Next

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 lngacDetaiHeight As Long

Dim lngSumH As Long

Dim lngYmKjheight As Long

Dim lngRows As Long

Dim lngRowTop As Long

Dim lngBottomMax As Long

'表格下边距，报表页眉的高度 ＋主体节高度×每页要显示的

'表格左边距，第一个控件的左边距

'表格右边距，最后一个控件的左边距＋最后一个控件的宽度

'行高，即主体节高度

'主体高度

'主体多行的总高度 + 页面页眉的高度(线上端起始位置)

页面页眉最低层(标题)行中的第一个控件的高度

'