Line Method in Access Report

[Bill Short]

I have a subreport in the detail section of the main report. The
subreport is set to CanGrow. I am using the Me.Line method (thanks to
Stephen Lebans) to create vertical lines that fill in between bottom
of the subreport and the top of the footer section. I have this code
working with the one problem. When I open the detail section up to the
size I need for the lines to touch the lines that begin at 0.0" of the
footer section the report adds a 2nd page with only the header and
footer on it.

Dim ctlDetail As Control

For Each ctlDetail In Me.Section(acDetail).Controls
With ctlDetail
Me.Line (.Width, (.Height + 1))-(.Width, Me.Height)
Me.Line (.Left, (.Height + 1))-(.Left, Me.Height)
End With
Next

Set ctlDetail = Nothing
Thanks,

Bill
Newtown, PA