I am so close now thanks to the printer tip. The only small problem is a small gap at the bottom between the vertical line and the base page footer horizontal line. Its very minor but it would be nice to have 100% success.
The header & detail format code is as follows:
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(Me.header) Then
Me.MoveLayout = False
Me.PrintSection = False
Me.Line18.Visible = False
Else
Me.Line18.Visible = True
Me.Line (3.9 * 1440, 0)-(3.9 * 1440, 14400)
End If
End Sub
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.ScaleMode = 1
Me.ForeColor = 0
Me.Line (3.9 * 1440, 0)-(3.9 * 1440, 14400)
End Sub
Thanks again for your help and interest
Tim L-B