Как сделать переменную высоту строки в отчете?

Dim RowHeight As double ' необходимая высота строки
    RowHeight=Me.Наименование.Height

    Me.Цена.Height=RowHeight

Option Compare Database
Option Explicit
 
Dim ctl As Control, MaxH As Integer
 
Private Sub ÎáëàñòüÄàííûõ_Print(Cancel As Integer, PrintCount As Integer)
 
   MaxH = 0
   For Each ctl In Me.Section(0).Controls 
      MaxH = IIf(MaxH > ctl.Height, MaxH, ctl.Height)
   Next ctl
 
   For Each ctl In Me.Section(0).Controls 
      Me.Line (ctl.Left, 0)-Step(ctl.Width, MaxH), , B
   Next ctl
 
End Sub

'вставляем в модуль класса отчета
'отчет с переменной высотой полей
Option Compare Database
Option Explicit
 
Dim ctl As Control, MaxH As Integer
 
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
 
   MaxH = 0
   For Each ctl In Me.Section(0).Controls ' Перебор всех компонентов семейства Controls.
      MaxH = IIf(MaxH > ctl.Height, MaxH, ctl.Height)
   Next ctl
 
   For Each ctl In Me.Section(0).Controls '  Перебор всех компонентов семейства Controls.
      Me.Line (ctl.Left, 0)-Step(ctl.Width, MaxH), , B
   Next ctl
 
End Sub