access報(bào)表在列的固定位置中插入垂直線(xiàn)

access中的報(bào)表功能不算強(qiáng)大。往往需要我們通過(guò)代碼添加模擬更多的效果

在報(bào)表中，我們可能需要添加橫線(xiàn)，豎線(xiàn)做成表格。橫向在access報(bào)表中很容易添加，直接添加橫向控件就可。

對(duì)于高度固定的報(bào)表節(jié)，我們可以輕松地向其中添加垂直線(xiàn)。但是對(duì)于高度是變化的節(jié)(主體)，卻麻煩很多

必須要能夠指定垂直線(xiàn)將顯示在打印頁(yè)面上的具體位置。最常用的方法是在運(yùn)行時(shí)使用報(bào)表的Line方法添加垂直線(xiàn)。

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方法指定垂直線(xiàn)的頂部和底部的坐標(biāo)。其中， 報(bào)表上所有度量單位都是緹（每英寸=1440緹，每厘米=567緹）。

Y2使用32767作為垂直線(xiàn)的終點(diǎn)，access會(huì)自動(dòng)將直線(xiàn)裁剪到主體的高度，由于直線(xiàn)不包含數(shù)據(jù)，access不會(huì)擴(kuò)展主體，相反，access最多將繪制主體長(zhǎng)度的直線(xiàn)。

注意

因?yàn)樵贔ormat事件下觸發(fā)的動(dòng)作。默認(rèn)條件下，該報(bào)表是在報(bào)表視圖下打開(kāi)。若要顯示垂直線(xiàn)，需要用打印預(yù)覽視圖打開(kāi)。