Переформатирование листа для печати на нескольких страницах.

[Smogg]

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

В общем есть изначальный лист с шапкой, основной таблицей и подвалом.

Этот исходный лист надо подготовить для печати, т.е. разбить на несколько страниц. На каждой их них шапка и подвал остаются неизменными, меняется лишь содержание таблицы. Все бы ничего, но высота строки таблицы не статична, а подгоняется под содержание. Гарантируется лишь одно - в рабочую таблицу на каждом листе влезает как минимум одна строка и строка не может быть выше отведенного места под таблицу с данными.

Высоты строчек я подсчитал. А что дальше - смутно, смутно...

[Казанский]

Шапка: параметры страницы - лист - сквозные строки. Или верхний колонтитул.
Подвал: создайте нижний колонтитул.

[Smogg]

т.е. можно назначить строки в листе как подвал и шапку соответственно?

Мне это дело надо в макросе обработать. Чтоб ячейка не разрывалась на середине, а переносилась на следующий лист, если не влазит. И подсчитать количество получившихся печатных страниц.

[Казанский]

Сквозные строки как шапку - можно, как подвал - нет, поэтому я и предлагаю подвал сделать колонтитулом.
Программа позаботится о том, чтобы ячейки не разрывались.
Число страниц

(mysheet.hpagebreaks.count+1)*(mysheet.vpagebreaks.count+1)

, перед обращениям к этим свойствам желательно вызвать предпросмотр печати.

[Smogg]

Сообщение от Казанский

перед обращениям к этим свойствам желательно вызвать предпросмотр печати.

Подскажите еще:
Логика макроса такая - из данных создается книга из нескольких листов.
По завершению работы эти листы открываются в режиме предпросмотра. Получается документ по ссылке - http://rghost.ru/8PpxpWrBS

Шапка, как договорились, будет копироваться на каждую страницу. Устанавливается как сквозные строки.

Тот блок, который про реквизиты руководителя и бухгалтера желательно печатать в самом конце один раз, но без разрывов, т.е. на одной странице. А если на одной странице, то мне кажется, что надо бы хотя бы одну строчку из данных перенести на последнюю страницу. Т.е. разрыв страницы будет на строке "Услуги редактирования".

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

И надо, чтоб в конце открылся итоговый документ в предпросмотре.

Сейчас предпросмотр открывается так:

wbNew.PrintOut Copies:=1, Collate:=True, Preview:=True

Но это PrintOut, а не ShowPrintPreview какой-нибудь...

Ps: Вижу лишь решение костылем - подсчитать вручную сколько по высоте места остается для таблицы на одной странице, и если получившаяся таблица не состыкуется с этой константой, то соответственно вставлять разрыв. Но это костыль, константа зависит как минимум от высоты шрифта, а конкретнее - высоты строк в шаблоне бланка...

Зыы: с превью разобрался)

This code will show the print preview

ActiveWindow.SelectedSheets.PrintPreview

This code will close print preview

Application.SendKeys "{ESC}" 
' ESCAPE 

- *** OR *** 

Application.SendKeys "%{F4}"

Зыыыы: А вот и фиг... У меня макрос управляется из окна диалога, и соответственно, Esc уходит в это окно диалога, а не в основное окно, где по идее должен открываться превью (может и не открывается, не увидел, виснет).
Поэтому лишь костыль через константу ((

[IgorGO]

как мне узнать, когда надо принудительно ставить разрыв страницы

пройдитесь по коллекции hPageBreakes листа
у каждого элемента есть
.Location.Row

если ОБЯЗАТЕЛЬНО нужно напечатать на одной странице допустим строки c 85 по 93
а один из Location.Row оказался в этом интервале, допустим = 90
это значит, что часть строк будет на одной странице, а часть на след.

вставте принудительный разрыв страницы перед 85 строкой и готово
ActiveSheet.HPageBreaks.Add Before:=Cells(85,1)

[Smogg]

Спасибо)

Сообщение от IgorGO

пройдитесь по коллекции hPageBreakes листа
у каждого элемента есть
.Location.Row

Не подскажите, когда hPageBreakes листа обновляется, т.е. пересчитывается? По какому-то событию или при обращении к элементу?

[Smogg]

Сообщение от Smogg

Не подскажите, когда hPageBreakes листа обновляется, т.е. пересчитывается? По какому-то событию или при обращении к элементу?

Ага, угадал) Обновляется именно по событию, а не при обращении к элементу.

Сначала надо так:

       lstSchetFacturaNew.Visible = xlSheetVisible
       lstSchetFacturaNew.Activate

А лишь потом так:

            Dim rwMin As Long, rwMax As Long
            
            rwMin = 23 + lbService.ListCount
            rwMax = 30 + lbService.ListCount
            
            For Each brk In lstSchetFacturaNew.HPageBreaks
                MsgBox brk.Location.Row
                If brk.Location.Row >= rwMin And brk.Location.Row <= rwMax Then
                
                    GoTo lblBrk
                End If
            Next
            
            GoTo lblNotBrk
lblBrk:
            lstSchetFacturaNew.HPageBreaks.Add Before:=Cells(22 + lbService.ListCount, 1)

lblNotBrk: