Vertical lines on a report not growing

Thanks for viewing my post!
I adapted the code below from MS Support to create 4 vertical lines in the detail section of my report. I need these 4 lines to extend the length of detail section.

The bottom is report footer section, which I need to sum - not a page footer. The lines need to meet the report footer.........which has a set position from the top of the page.

This code creates the 4 lines, but height is only as high as the records. Detail section is set to Can Grow.
Need some help with another set of eyes on this to see what I am missing.....appreciate whatever input you can provide!

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

Me.ScaleMode = 1
Me.ForeColor = 0
Me.Line (1.5417 * 1440, 0)-(1.5417 * 1440, 14400), vbRed
Me.Line (4.6667 * 1440, 0)-(4.6667 * 1440, 14400), vbRed
Me.Line (6.4583 * 1440, 0)-(6.4583 * 1440, 14400), vbRed
Me.Line (8.25 * 1440, 0)-(8.25 * 1440, 14400), vbRed


End Sub

Private Sub Report_Open(Cancel As Integer)

DoCmd.Maximize

End Sub

Private Sub Report_Page()

If Me.Page <> 1 Then

Me.ScaleMode = 1
Me.ForeColor = 0
Me.Line (1.5417 * 1440, 0)-(1.5417 * 1440, 14400), vbRed
Me.Line (4.6667 * 1440, 0)-(4.6667 * 1440, 14400), vbRed
Me.Line (6.4583 * 1440, 0)-(6.4583 * 1440, 14400), vbRed
Me.Line (8.25 * 1440, 0)-(8.25 * 1440, 14400), vbRed
End If

End Sub

Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
Call SetGrpFtrLoc(Me.Report, 6) 'Display report footer at least
'6 inches from the top of the page
Me!Label90.Visible = Not IsNull(Me!CITAX)
Me!Label92.Visible = Not IsNull(Me!CIFRT)
End Sub

Private Sub Report_Close()
DoCmd.Restore
End Sub