Detail_Print

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

Dim lngMaxHeight As Long

Dim i As Integer

lngMaxHeight = Me.Itm0.Height

For i = 1 To 3        

If lngaMaxHeight < Me.Itm0.Height + Me("rptPREE" & i).Height Then            

lngMaxHeight = Me.Itm0.Height + Me("rptPREE" & i).Height

End If

Next    

Me.Line (Me.Width, 0)-(Me.Width, lngMaxHeight)

For i = 0 To 24        

Me.Line (Me("Itm" & i).Left, 0)-(Me("Itm" & i).Left, lngMaxHeight)

Next

End Sub

CODE

Me.Line (Me("Itm" & i).Left, 0)-Step(10.5*1440, lngMaxHeight)