Private Sub кнПечать_Click()
On Error Resume Next 'Отключаем диагностику ошибок
DoCmd.OpenReport "Отчет об итогах", acViewPreview 'Открываем отчет
Err.Clear 'В случае отсутствия данных очищаем поток ошибок
On Error Resume Next 'Отключаем диагностику ошибок
DoCmd.OpenReport "Отчет об итогах", acViewPreview 'Открываем отчет
Err.Clear 'В случае отсутствия данных очищаем поток ошибок