Может так попробовать? Модуль отчета:

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
    Dim Xst As Long
    Dim Yst As Long
    Dim i As Long
   
    With Me.AmountString 'Поле, где показываем сумму прописью
        Me.FontName = .FontName
        Me.FontSize = .FontSize
        Me.FontBold = .FontBold
        Me.FontItalic = .FontItalic
        Xst = .Left + Me.TextWidth(.Value) + 10 'чуть отступим от текста
        Yst = .Top + Me.TextHeight(.Value) / 2
    End With
    For i = 0 To 45 Step 45
        Me.Line (Xst, Yst + i)-(Me.Width, Yst + i)
    Next
End Sub

Можно поиграться с толщиной линий.