office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2020-03-14 08:00:00
tmtony8
原创
4736

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

    分享