Private Sub Report_NoData(Cancel As Integer)

MsgBox "Нет данных для печати!", vbExclamation, "Мой калькулятор"

Cancel = True ‘Отменяем открытие отчета