0  - Custom values used by one or more of the ScaleHeight, ScaleWidth, ScaleLeft, and ScaleTop properties 
 1  -(Default) Twips 
 2  -Points 
 3  -Pixels 
 4  -Characters (horizontal =  120  twips per unit; vertical =  240  twips per unit) 
 5  -Inches 
 6  -Millimeters 
 7  -Centimeters 

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!EmployeeReport
    ' Set scale to pixels.
    rpt.ScaleMode = 3
    ' Top inside edge.
    sngTop = rpt.ScaleTop +  5 
    ' Left inside edge.
    sngLeft = rpt.ScaleLeft + 5
    ' Width inside edge.
    sngWidth = rpt.ScaleWidth -  10 
    ' Height inside edge.
    sngHeight = rpt.ScaleHeight - 10
    ' Make color red.
    lngColor = RGB( 255 , 0 , 0 )
    ' Draw line as a box.
    rpt.Line(sngTop, sngLeft) - (sngWidth, sngHeight), lngColor, B
End Sub

Reports(ReportName).ScaleMode =  1 
...
Reports(ReportName).Line
                            ((.Left + .Width + intLineMargin),  1 )-
                             (.Left + .Width +intLineMargin, Reports(ReportName).Height)
Reports(ReportName).DrawWidth =  10 

Option Compare Database
Option Explicit
Public Function Report_Load_Format(ReportName As String)
' функция форматирования раздела с данными под самый большой элемент- проставляются линии по вертикали и горизонтали
' НЕОБХОДИМО: чтобы все элементы имели свойство расширение=Да
' Помещать в процедуру ONPrint (ПриПечати)

    Dim CtlDetail                  As Control
    Dim intLineMargin              As Integer
    intLineMargin = 1    

    Reports(ReportName).ScaleMode = 1    '  в твипах

    For Each CtlDetail In Reports(ReportName).Section(acDetail).Controls
        With CtlDetail
            Reports(ReportName).Line ((.Left + .Width + intLineMargin),  1 )-(.Left + .Width +intLineMargin, Reports(ReportName).Height)
            Reports(ReportName).DrawWidth =  10 
        End With
    Next
    With Reports(ReportName)
        Reports(ReportName).Line ( 0 ,  0 )-(.Width, .Height), vbBlack, B
        Reports(ReportName).DrawWidth =  10     ' толщина ровно  1 / 2  пункт
    End With

    Set CtlDetail = Nothing
End Function