Vertical Column Lines

[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

 

[Allen Browne]

The simplest solution might be to use the Line method in the Page event of
the report to just draw the vertical lines.

For a more comprehensive alternative, see:
http://www.lebans.com/PrintLines.htm

 

[Duane Hookom]

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

 

[Sven Richter]

Thanks guys, both solutions work fine.

Sven