Originally Posted by
June7
I have 6 line controls on report. I use their Left property to set the horizontal position of lines drawn by the code. Could instead use actual numbers and remove the line controls.
Private Sub Report_Page()
'1440 twips per inch
Me.Line (Me.lin1.Left, 720)-(Me.lin1.Left, 15120)
Me.Line (Me.lin2.Left, 720)-(Me.lin2.Left, 15120)
Me.Line (Me.lin3.Left, 720)-(Me.lin3.Left, 15120)
Me.Line (Me.lin4.Left, 720)-(Me.lin4.Left, 15120)
Me.Line (Me.lin5.Left, 720)-(Me.lin5.Left, 15120)
Me.Line (Me.lin6.Left, 720)-(Me.lin6.Left, 15120)
End Sub
Translated:
draw vertical line from (X, Y1) to (X, Y2)