In answer to my own question
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
DrawLine
End Sub
Sub DrawLine()
Dim rpt As Report, lngColor As Long
Dim sngTop As Single, sngLeft As Single
Dim sngWidth As Single, sngHeight As Single
Set rpt = Reports(Me.Name)...