Вставка надписи на последнюю страницу документа

[edikamn]

Всем привет. Помогите, не могу решить свой вопрос.
На листе имеется таблица, которая часто меняет свой размер по количеству страниц на листе, при том что иногда приходится вставлять принудительный разрыв страницы. Мне нужно на последней странице таблицы, в самом низу слева (не таблицы, а последней странице)вставлять фамилию исполнителя. Это может быть или ячейка или просто надпись.
Я пробовал вставлять надпись исходя из количества точек по горизонтали на листе за минусом позиций в точках верхнего и нижнего полей. Все вроде ничего, но когда приходится вставлять принудительный разрыв страницы, надпись начинает скакать по непонятному мне правилу то на середину последней страницы, то вообще на другую страницу.

В общем нужно стабильное положение текста внизу слева на последней странице.

[vikttur]

Переменная, определяющая последнюю заполненную строку на листе (строку таблицы):
i= Sheets("ля-ля").Cells(Rows.Count, 1).End(xlUp).Row
ii=i+5 - отступ - например, пятая строка после таблицы - с этой строки вставлять "подвал"

[edikamn]

Не очень актуально.
Последняя строка всегда бывает на разном уровне относительно странице.
А надпись нужно вставлять ИМЕННО внизу страницы.
Кто-нибудь Помогите, всю голову сломал, не знаю как.

[Aent]

edikamn, вам надо воспользоваться коллекцией HPageBreaks.

[edikamn]

Я смотрел эту коллекцию. Определить адресность разрыва страницы можно командой LOCATION. Но в этом случае адрес привязан к адресу ячейки. А мне нужно определить в точках, так как нижнюю часть последней страницы, выводимой на печать я могу определить только по положению нижнего поля листа BOTTOMMARGIN

Кто-нибудь знает как определить положение в точках разрыва страницы

[alexvav]

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

[Aent]

В предположении что вертикальных разрывов страниц нет (т.е. страницы в одну колонку)

Public Sub Example()
    Dim i As Long 
    Dim j As Long
    Dim k As Long
    Dim b As Long
    With ActiveSheet
        i = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
        k = ExecuteExcel4Macro("Get.Document(50)")
        On Error Resume Next
        Application.EnableEvents = False
        j = 1
        Do
            b = .HPageBreaks(k).Location.Row
            If Err.Number <> 0 Then
                Err.Clear
                .Cells(i + j, 1).Value = " "
                j = j + 1
            Else
                Exit Do
            End If
        Loop
        .Cells(i + 1, 1).Resize(j - 1, 1).ClearContents   'Не обязательно
        Application.EnableEvents = True
        MsgBox "Последняя строка на последней странице: " & CStr(i + j - 1)
    End With
End Sub

Как вариант посмотрите http://www.mrexcel.com/forum/showthread.php?t=53736