Перенос части листа на другой лист

[Filippokx2015]

Добрый день!
Стоит следующая задача
При печати таблицы может возникнуть ситуация что футер таблицы(с подписями и тд) переносится на след страницу , в этом случае на след странице должна быть хотя бы одна табличная запись.


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

Во вложение наглядный пример НЕ ПРАВИЛЬНОЙ печати

[Hugo121]

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

[IgorGO]

1. можете определить на какой странице находится строка с МП
2. определить на какой странице находится строка на, допустим, на 12 строк выше

если они на одной странице - все нормально, если на разных вставьте PageBreak в строке описанной в п.2 и станут на одной. это точный метод не требующий предположений...

[Filippokx2015]

С точки зрения алгоритма я понимаю как надо сделать=)
для меня барьер VBA
Если бы вас не затруднило хотя куски кода покидать в которых можно было бы покопаться
Спасибо

[IgorGO]

не знаю чем это Вам поможет, но так можно найти на какой странице находится ячейка:

Function AtPage(rg As Range) As Long
  Dim i As Long
  i = 1
  Do While rg.Row > HPageBreaks(i).Location.Row
    i = i + 1
  Loop
  AtPage = i
End Function

[Hugo121]

Можно почитать что хелп предлагает по выше упомянутому HPageBreaks.
Раз уж алгоритм понятен....

[Filippokx2015]

А кто нить сможет псевдо-код на язык VBA хотя бы в общих чертах перевести

Взять последнюю страницу
Если кол-строк ровно 20(значит на последний странице голый футер)
Взять предпоследнюю страницу
Вставить разрыв страницы в позиции ( посл строка - 4 )


Выручайте =)