Иконки на скрытой панели

[segail]

Здравствуйте.
Посоветуйте, подскажите.
Есть код, при выполнении которого происходит скрытие панели.

Module_SkrytPanel.Hid 'Скрыть панель

с последующем входом для просмотра и печати.
Полностью код выглядит так.

Private Sub CommandButton4_Click()
    Module_SkrytPanel.Hid 'Скрыть панель
    Application.ScreenUpdating = False
    Me.Hide 'Скрыть форму
    Sheets("Лист1").PrintPreview 'Просмотр
    'дальше код будет выполняться только после закрытия окна предварительного просмотра
    Application.ScreenUpdating = True
    Me.Show 'Открыть форму
End Sub

После входа в просмотр и печать, окно выглядит так.
prosmotr.JPG
Можно ли при выполнении кода вывести на данное окно иконки “печать” и “параметры страниц”
Примерно так
procmotr2.JPG

[аналитика]

давай файл...

[segail]

момент......................

[segail]

Создал пример, что то не могу попасть в окно просмотра…

[segail]

Дополнение, что бы попасть в окно просмотра необходимо на “Листе1” (в примере выше)ввести какое либо значение.

[аналитика]

трудно говорить, что что-то не возможно, просто может быть ты об этом не знаешь...
Сдается мне, что твоя идея не осуществима (без Ленты никак), хотя я могу ошибаться.

по поводу скрытия ленты (Ctrl+F1) - помнишь бились головой о стену, в реестре я так и не нашел параметр, который отвечает за свернутость ленты,
НО
можно прописать обработку следующего параметра (обновление отключил, считал высоту окна, эмуляция Ctrl+F1, опять считываем высоту окна, сравниваем с предыдущим, понимаем взаимосвязь "Развернутость-Высота", в процедуре отталкиваемся от высоты)

ActiveWindow.Height

конечно если у тебя во время выполнения окно не пляшет случайным образом.
Лента свернута - этот параметр больше ceteris paribus
развернута - меньше.

может это как-нибудь использовать в твоих нелегких трудах

[segail]

Понял. Попробую поискать ответ. Спасибо.

[nilem]

Сообщение от аналитика

прописать обработку следующего параметра (обновление отключил, считал высоту окна, эмуляция Ctrl+F1, опять считываем высоту окна, сравниваем с предыдущим, понимаем взаимосвязь "Развернутость-Высота", в процедуре отталкиваемся от высоты)

Тоже была такая мысль. А может переменную типа ЛентаСвернута As Boolean? При открытии файла лента по умолчанию развернута (ну или найти в программе такое место, когда лента точно развернута) и тогда ЛентаСвернута = False, например.
А дальше If ЛентаСвернута Then эмуляция Ctrl+F1 и все такое.
М?