Vertical Column Lines

  • Thread starter Thread starter Sven Richter
  • Start date Start date
S

Sven Richter

Hi,
I've got a report in which I want to display the values of a table.
Basically, it works fine, but I'm only able to show the horizontal lines
of each row. I also want to show the vertical lines of each column.
Since the height of each row differs, the length of the vertical column
line in each row varies either. I don't know how to get MS Access to
show these vertical lines in a fair way.

Sven
 
You can add invisible rectangles to your detail section and position their
left sides where ever you want to draw a vertical line. Name you rectangle
"Rect1", "Rect2", "Rect3",... Assuming you have 6 rectangles that you want
vertical lines along their left side, use this code:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim intRects As Integer
Dim intLeft As Integer
For intRects = 1 To 6
intLeft = Me("Rect" & intRects).Left
Me.Line (intLeft, 0)-(intLeft, 10000)
Next
End Sub
 
Back
Top