Access报表如何实现表格画线即每列插入垂直线

Access中制作的报表默认情况下是无线条的，很难通过手动绘制报表横竖线条实现表格形势，这时候我们需要借助VBA代码来实现更多的复杂表格画线效果。

在Access报表中，我们可能需要添加横线，竖线做成表格。横向在access报表中很容易添加，直接添加横向控件就可。

对于高度固定的报表节，我们可以轻松地向其中添加垂直线。但是对于高度是变化的节(主体)，却麻烦很多必须要能够指定垂直线将显示在打印页面上的具体位置。最常用的方法是在运行时使用报表的Line方法添加垂直线。

Private Sub Detail1_Format(Cancel As Integer, FormatCount As Integer)
  Dim X1 As Single
  X1 = 1.5 * 1440
  Me.Line (X1, 0)-(X1, 32767)  ' Draw the line with clipping.
  
  X1 = 2.5 * 1440
  Me.Line (X1, 0)-(X1, 32767)

  X1 = 3.5 * 1440
  Me.Line (X1, 0)-(X1, 32767)

End Sub

Line方法指定垂直线的顶部和底部的坐标。其中， 报表上所有度量单位都是缇（每英寸=1440缇，每厘米=567缇）。

Y2使用32767作为垂直线的终点，access会自动将直线裁剪到主体的高度，由于直线不包含数据，access不会扩展主体，相反，access最多将绘制主体长度的直线。

注意

因为在Format事件下触发的动作。默认条件下，该报表是在报表视图下打开。若要显示垂直线，需要用打印预览视图打开。