Диалоговое окно печати (отчёта)

Private Sub cmdВашаКнопка_Click()
'Открытие отчёта на просмотр с отображением диалогового окна печати (отчёта)
'---------------------------------------------------------------------------------------------------
On Error GoTo Print_Err

    DoCmd.OpenReport "Имя Отчёта", acViewPreview   'Открытие на просмотр
    DoCmd.Maximize                                 'Во весь экран
    DoCmd.RunCommand acCmdPreviewOnePage           'Страницу по размеру окна
    DoEvents
    DoCmd.RunCommand acCmdPrint                    'Диалоговое окно печати (отчёта)

Print_End: 'Метка выхода из процедуры
    Exit Sub

Print_Err: 'Метка обработчика ошибок
    If Not Err.Number = 2501 Then '2501 = кнопка "Отмена" в диалоге печати.
        MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Sub : " & _
               "cmdВашаКнопка_Click.", vbCritical, "Error!"
    End If
    Err.Clear
    Resume Print_End
End Sub