office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

access報表在列的固定位置中插入垂直線

2020-03-14 08:00:00
tmtony8
原創
223

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事件下觸發的動作。默認條件下,該報表是在報表視圖下打開。若要顯示垂直線,需要用打印預覽視圖打開。

    分享
    北京十一选五基本走势