Code:
Private Sub DummyGroupFooter_Format(Cancel As Integer, FormatCount As Integer)
Dim footerPos As Long
' Dim countspace As Long
' countspace = countspace + 1
footerPos = 7.6 * 1440 'desired position of footer in inches * 1440 twips per inch)
If Me.Top < footerPos Then
Me.DummyGroupFooter.Height = footerPos - Me.Top
Else
Me.DummyGroupFooter.Height = footerPos
End If
End Sub[code]
The code above allows me to always print the Invoice Summary at a SET location toward the bottom of the page. The invoice can have a variable number of detail lines. The invoice has some vertical column/grid lines between columns of the detail. IS THERE ANY way to code the above so that the vertical lines can appear continuously down the page - all the way down to the start of the summary section ??