Доброго дня, уважаемые форумчане.

Я новичок в программировании на VBA, посему не могу сам справиться с этим таском. Очень надеюсь на вашу помощь и/или советы.


Мне необходимо подсчитать общее количество листов и номер текущего листа.

Формат документа следующий: "шапка", область данных и инфо-блок, подитоживающий данные из шапки и области данных.

Формирование листов строится по схеме в зависимости от кол-ва позиций.
Иллюстрируют это следующие интервалы зависимости количества листов от количества позиций:

{1..5} - 1 page
{6..46} - 2 pages
{47..88} - 3 pages
...

Если ставить задачу в нотации, где
"[]" - обозначают достаточное кол-во позиций, чтоб уместить область данных и инфо-блок на одном листе
а "()" - максимальное кол-во позиций на листе после "шапки", но инфо-блок при этом смещается на следующий лист

1-й лист: [5] (20)

[5] - лист вмещает инфо-блок - получаем шапку, данные и инфо-блок на одном листе
(20) - макс.кол-во позиций, размещаемое на 1-м листе, при этом инфо-блок не вмещается, переходя на след.лист


2-й и последующие листы: [26] (41)
[26] - на листе вмещается инфо блок
(42) - макс.кол-во позиций, размещаемое на 2-м и последующих листах, при этом инфо-блок не вмещается, переходя на следующий лист

То есть, если на лист выводятся всего 5 позиций, то инфо-блок полностью помещаются на одном листе с шапкой и областью данных, т.е. получается один неразрывный лист.

Если 6 позиций, то вся информация уже не помещается, т.к. инфо-блок смещается на следующую страницу - получается 2 листа.

На первом листе размещается, максимум, 20 позиций,- вернее шапка и 20 позиций, остальная информация (инфо-блок) переходит на следующие листы:

Если 46 позиций, то получаем
1-й лист - шапка, 20 позиций,
2-й лист - с 21 позиции по 46-ю,
инфо-блок помещается на 2-м листе.

Если более 46-ти позиций, то уже будет 3 листа:

т.е. с 21-й по 62-ю позиции помещаются на 2-м листе (это если без инфо-блока), 63-я и последующие - на другом листе, со смещённым инфо-блоком.