подсчет количества страниц на листе

[strokky]

Подскажите пожалуйста как можно переменной присвоить значение количества страниц на листе, разметка страниц на листе задана.

Пробую так - не получается((

x = ActiveSheet.Pages.Count

[Step_UA]

x = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)

[EducatedFool]

Step_UA, не так всё просто (если рассматривать общий случай)

я создал новый лист, заполнил данными ячейки a1:a250 и ячейки a1:z1
(первый столбец и первая строка)

Включаю просмотр печати, - мне показывает, что на печать будет выведено 11 листов
Ваш же метод выводит 18:

Debug.Print (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
18
Debug.Print ActiveSheet.HPageBreaks.Count, ActiveSheet.VPageBreaks.Count
5 2

но, конечно, в большинстве случаев, ваш метод даст верный результат

[strokky]

Спасибо! Воспользовался первым вариантом.