Line across columns in report

[jenniferspnc]

I have a 3 column report. I want a line to go across the bottom of each
address. When I insert a line it underlines columns 1, 2, and 3 separately.
I want it to be a line across the entire page with no breaks. How would I go
about doing this? Thanks in advance.

For example,
Column 1 Column 2 Column 3
Address Address Address
___________________________________
Address Address Address
___________________________________
Address Address Address

 

[Duane Hookom]

You might want to try code in the On Page event of the report like:

Private Sub Report_Page()
Dim intVertSpacing As Integer
Dim intLineCount As Integer
Dim intNumColumns As Integer
Dim intNumRows As Integer
intNumColumns = 3
intNumRows = 10
intVertSpacing = Me.Section(acDetail).Height
For intLineCount = 1 To intNumRows
Me.Line (0, intVertSpacing * intLineCount)-Step(Me.Width *
intNumColumns, 0)
Next

End Sub