Если тебя интересует
одинаковая высота строк
в отчете.
вот решение, рисующее линии
вокруг контролов:

на событие "печать" области данных
пишете

DrawDetail Me

вот сама функция

Sub DrawDetail(CR As Report)
Dim i As Long
Dim maxh As Long
maxh = 0
CR.DrawMode = 1
CR.DrawWidth = 10
CR.ScaleMode = 1
For i = 0 To CR.Controls.Count - 1
If CR(i).Section = acDetail Then
If CR(i).Height > maxh Then maxh = CR(i).Height
End If
Next i
For i = 0 To CR.Controls.Count - 1
If CR(i).Section = acDetail Then
CR.Line (CR(i).Left, CR(i).Top)-Step(CR(i).Width, maxh), , B
End If
Next i
End Sub

я за Лоха
по поводу "Поубывал бы"