Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
    Dim Xst As Long
    Dim Yst As Long
    Dim i As Long
    Dim j As Long

    For j = 1 To 3
        With Me.Controls("AmountString" & j) 'Поле, где показываем сумму прописью
            Me.FontName = .FontName
            Me.FontSize = .FontSize
            Me.FontBold = .FontBold
            Me.FontItalic = .FontItalic
            Xst = .Left + Me.TextWidth(.Value) + 10 'чуть отступим от текста
            Yst = .Top + Me.TextHeight(.Value) / 2

            For i = 0 To 45 Step 45
                Me.Line (Xst, Yst + i)-(.Left + .Width, Yst + i)
            Next i
        End With
    Next j
End Sub

Вариант для трех полей с линиями до конца поля.

Нужно использовать имена контролов, если они "Поле9", "Поле10" и "Поле11", то

For j = 9 To 11
        With Me.Controls("Поле" & j) 'Поля, где показываем сумму прописью