精选优质文档-倾情为你奉上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
