Public Sub subBarReport()
subBarOff 'Гасим все панели
DoCmd.ShowToolbar "Строка меню", acToolbarYes 'Отображаем
DoCmd.ShowToolbar "Предварительный просмотр", acToolbarYes 'Отображаем
subBarOff 'Гасим все панели
DoCmd.ShowToolbar "Строка меню", acToolbarYes 'Отображаем
DoCmd.ShowToolbar "Предварительный просмотр", acToolbarYes 'Отображаем