ผมลงโค้ดไว้ที่ On Page ดังนี้
Private Sub Report_Page()
Me.ScaleMode = 7 'กำหนดให้หน่วยเป็น cm.
Me.DrawStyle = vbSolid
Me.DrawWidth = 10
Me.Line (0, 9.8)-(0, 20) cm
Me.Line (1, 9.8)-(1, 20)
Me.Line (2.6, 9.8)-(2.6, 20)
Me.Line (5.5, 9.8)-(5.5, 20)
Me.Line (7.2, 9.8)-(7.2, 20)
Me.Line (9.7, 9.8)-(9.7, 20)
Me.Line (11.6, 9.8)-(11.6, 20)
Me.Line (13.4, 9.8)-(13.4, 20)
Me.Line (15.4, 9.8)-(15.4, 20)
Me.Line (17, 9.8)-(17, 20)
Me.Line (19.1, 9.8)-(19.1, 20)
'Me.Line (0.1, 7.4)-(18.67, 7.4)
'Me.Line (0.1, 8.6)-(18.67, 8.6)
Me.Line (0, 20)-(19.1, 20)
Me.DrawWidth = 1
End Sub
ส่วนใน Design Report เป็นแบบนี้ดังข้างล่างครับ