Option Compare Database
Option Explicit

Private m_strRetVal As String

Private Sub Report_NoData(Cancel As Integer)
'не забываем обработать ошибку 2501 - отмена открытия отчёта
Cancel = -1
End Sub

Private Sub ВерхнийКолонтитул_Print(Cancel As Integer, PrintCount As Integer)
m_strRetVal = vbNullString
End Sub

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
m_strRetVal = m_strRetVal & vbNewLine & Me.Section(0).Controls(1) & (" " + Me.Section(0).Controls(2))
End Sub

Private Sub НижнийКолонтитул_Print(Cancel As Integer, PrintCount As Integer)
    If Len(m_strRetVal) > 0 Then MsgBox Mid(m_strRetVal, 3), vbInformation
End Sub