VBA. Закрыть PrintPreview программно

VBA. Закрыть PrintPreview программно, Как программно закрыть вызванное окно PrintPreview?

Пользователь

Сообщений: 257 Регистрация: 26.02.2014

11.03.2017 23:29:15

Добрый день.
Как программно закрыть вызванное окно ActiveWindow.SelectedSheets.PrintPreview?
Дело в том, что это окно приходится вызывать потому, что команда ActiveWorkbook.Worksheets(1).HPageBreaks.Count + 1 выдает верные данные только после предварительного просмотра. Файл просматривается не один, и хотелось бы избежать ручного закрытия каждого всплывающего окна.
Если есть другие способы узнать количество печатных страниц в листе книги, буду только рад узнать его.

Код

Dim pg As Integer ' кол-во страниц
...
ActiveWindow.SelectedSheets.PrintPreview ' Требуется ручное закрытие предпросмотра
pg = ActiveWorkbook.Worksheets(1).HPageBreaks.Count + 1

Михаил С.

Пользователь

Сообщений: 10514 Регистрация: 21.12.2012

12.03.2017 02:55:30

попробуйте вместо

Код
ActiveWindow.SelectedSheets.PrintPreview pg = ActiveWorkbook.Worksheets(1).HPageBreaks.Count + 1

Код
ActiveWindow.View = xlPageLayoutView 'режим разметки страниц pg = ActiveWorkbook.Worksheets(1).HPageBreaks.Count + 1

cuprum Пользователь Сообщений: 257 Регистрация: 26.02.2014	#3 12.03.2017 10:15:13 Михаил С., Большое спасибо, Ваш вариант работает. Есть небольшие погрешности, но это HPageBreaks.Count уж так работает, почему-то в некоторых случаях выдает количество страниц отличающееся от количества показываемых в предпросмотре , но тут Ваш вариант не виноват. Спасибо. Изменено: cuprum - 12.03.2017 10:16:22