access报表划线与分组..docVIP

ACCESS报表画线实例(二)VBA画线 ????在报表视图中已将所有的控件排列整齐，现在需要在报表相关“节“中的FORMAT事件中，写入画线的相关代码。 ?????? 进入报表设计窗口，进入页面页眉节的属性对话框，点击“事件“，找到“格式化”，点击最右边的“三个点”的按钮， 进入VBE窗口，将代码粘贴进去（主体FROMAT事件也一起粘贴进去了）。  代码如下： 说明：代码中+70或-70，是因为如果页面页眉或主体节，调整高度大时，根据控件边框画线有间断的情况，可根据实际情况适当调整，使画线连续。 Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer) ????Dim a As Control ?? 设置线度量单位????Me.scalemode = 3 (可自己选择度量单位) 设置线(宽度) ????Me.DrawWidth = 3 ????设置线的类型 ????Me.DrawStyle = 0 ????For Each a In Me.Controls ????????If a.ControlType = acLabel And a.Tag = left Then ????????????画顶线 ????????????Me.Line (a.Left, 0)-(a.Left + a.Width + 70, 0) ????????????画竖线 ????????????Me.Line (a.Left, 0)-(a.Left, a.Height + 70) ????????????画底线 ????????????Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width + 70, a.Height + 70) ????????ElseIf a.ControlType = acLabel And a.Tag = LR Then ????????????画顶线 ????????????Me.Line (a.Left, 0)-(a.Left + a.Width, 0) ????????????画左竖线 ????????????Me.Line (a.Left, 0)-(a.Left, a.Height + 70) ????????????画右竖线 ????????????Me.Line (a.Left + a.Width, -70)-(a.Left + a.Width, a.Height + 70) ????????????画底线 ????????????Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width, a.Height + 70) ????????End If ????Next End Sub Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer) ????Dim a As Control ????设置线 (宽度)， ????Me.DrawWidth = 12 ????设置线的类型 ????Me.DrawStyle = 0 ????For Each a In Me.Controls ????????If a.ControlType = acTextBox And a.Tag = left Then ????????????Me.Line (a.Left, -70)-(a.Left, a.Height + 70) ????????????Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width + 70, a.Height + 70) ????????ElseIf a.ControlType = acTextBox And a.Tag = LR Then ????????????Me.Line (a.Left, -70)-(a.Left, a.Height + 70) ????????????Me.Line (a.Left + a.Width, -70)-(a.Left + a.Width, a.Height + 70) ???????????? Me.Line (a.Left, a.Top - 70)-(a.Left + a.Width, a.Top - 70) ????????????Me.Line (a.Left, a.Height + 70)-(a.Left + a.Wi