Автоматическая высота отчета в режиме "Всплывающее окно"

Sub reportHeight(repName, reg)
'Параметр reg задает режим открытия отчета. Например, acViewReport, acViewPreview
'но в режиме acViewPreview не удается правильно отобразить отчет.
'В общем нормально работает только в режиме acViewReport (Access 2007 и выше)
    Dim d, i, w
    DoCmd.OpenReport repName, reg, , , acHidden
    w = Reports(repName).Width
    On Error Resume Next
    For i = 0 To 12
        d = d + Reports(repName).Section(i).Height
    Next
    Err.Clear
    On Error GoTo 0
    DoCmd.Close reg, Reports(repName).Name
    DoCmd.OpenReport repName, acViewReport '
    With Reports(repName)
        DoCmd.MoveSize .WindowLeft, .WindowTop, w, d + 1500
    End With
End Sub

reportHeight "ИмяОтчета"

reportHeight "ИмяОтчета", acViewReport

Option Compare Database
Option Explicit
 
Public RH As Long
 
Function RepHeightFit(rptName As String)
 DoCmd.OpenReport rptName, acViewPreview
 With DoCmd
  .SelectObject acReport, rptName
  .MoveSize 0, 0, , RH + 2400
 End With
End Function

Option Compare Database
Option Explicit
 
Private Sub Report_Open(Cancel As Integer)
 RH = 0
End Sub
 
Private Sub ЗаголовокГруппы0_Format(Cancel As Integer, FormatCount As Integer)
 RH = RH + ЗаголовокГруппы0.Height
End Sub
 
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
 RH = RH + ОбластьДанных.Height
End Sub
 
Private Sub ПримечаниеГруппы1_Format(Cancel As Integer, FormatCount As Integer)
 RH = RH + ПримечаниеГруппы1.Height
End Sub

Call RepHeightFit("ИмяОтчета")