Private Sub Report_NoData(Cancel As Integer)
MsgBox "Нет данных для печати!", vbExclamation, "Мой калькулятор"
Cancel = True ‘Отменяем открытие отчета
MsgBox "Нет данных для печати!", vbExclamation, "Мой калькулятор"
Cancel = True ‘Отменяем открытие отчета