access报表在列的固定位置中插入垂直线

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事件下触发的动作。默认条件下，该报表是在报表视图下打开。若要显示垂直线，需要用打印预览视图打开。