Sub Print_Access_Report(sRptName)
Dim ac As Access.Application
Set ac = New Access.Application
   
On Error GoTo Handler
   ac.OpenCurrentDatabase MyFile
   ac.Visible = True
   ac.DoCmd.OpenReport sRptName, acViewPreview
 
Exit Sub

Handler:
    Screen.MousePointer =  0 
    MsgBox "Print_Access_Report :" & Err.Description
    Err.Clear

End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы