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