Добрый день!
Ребята! Сложный вопрос. В крайнеа случае для меня.
Имеется макрос, который вызывает окно печати.
Проблема.
ИЗ ОКНА ПЕЧАТИ ЗАПУСКАЕМ ПРОСМОТР. ВСЕ КАК НАДО.
Но после выхода из этого режима, автоматом исчезает окно печати. Тоже как задумано Майкрософт.
Вопрос.
Как этого избежать, в конкретной проге? То есть. Перехитрить Била Г., чтобы при выходе из режима просмотра, окно печати оставалось на экране монитора.
Заранее спасибо!
Файл прикрепляю.

Djon Player,Доброго вам дня!
"Вопрос лишь в том, в каком случае всё таки окно печати должно исчезнуть"
Естественно, что при нажатии на кнопку ОК (то есть, печатать документа). Сейяас код так и срабатывает.
А вот, как изменить вот эту строку : Sheets("Лист1").Activate, чтобы на печать выводился активный лист, я тоже не знаю.
И, вообще, как этот кож привести в божеский вид?
Если знаете как, то подскажите ПОЖАЛУЙСТА!
С уважением, автор!

Hugo121,
и вам доброго дня!
Да, вроди бы как на печать выводит активный лист. А в случае отказа от печати, активирует не тот лист откуда была запущена печать, а именно Лист1. А по логике должен активироваться лист, с которого была запущена печать.
Попробуйте, пожалуйста переместь/скопировать Лист1, а потом с вновь созданого листа нажать на кнопку Печать. А потом отказаться от печати.
Явно, что срабатывает строка Sheets("Лист1").Activate. Именно ее , как мне кажется, и нужно изменить. Вот только я не знаю как.
с уважением автор!

Hugo121,сочинил!
Вот такой код:
Sub Печать_ведомости()
dlgAnswer = Application.Dialogs(xlDialogPrint).Show
' Sheets("Лист1").Activate
dlgAnswer = Application.Dialogs(xlDialogPrint).Show
End Sub
Вот в таком виде код , и возвращает курсор на лист с которого была запущена печать, и оставляет окно печати на экране.Не знаю, по правилам это сделано? Но работает.
Ребята! Спасибо вам за екстренную помщь!!! Удачи вам во всем!

Hugo121,
не могу с вами не согласиться!
Еще раз СПАСИБО!