Проверка "вместимости" строк на лист при печати

[OMEN_6666]

Здравствуйте, форумчане.

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

Как в VBA можно получить данные, после какой строки остальные на печатный лист на поместятся и нужно вставлять итоговую и разрыв со следующей страницей?

Пока приходит в голову только мысль о подсчете суммарной высоты строк таблице и сравнении этого значения с "высотой" листа.

[Казанский]

Смотрите в сторону коллекции Sheet.HPageBreaks.
Например, sheets("Лист1").HPageBreaks(1).Loca tion - диапазон (ячейка), НАД которой находится первый разрыв страницы.
sheets("Лист1").HPageBreaks(1).Loca tion.Address - адрес этой ячейки.

[OMEN_6666]

Казанский, спасибо за помощь, что-то пока не получается, правда я в синтаксисе VBA не особо силен. Если не сложно, посмотрите, пожалуйста, где ошибка.

[nerv]

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

Пока приходит в голову только мысль о подсчете суммарной высоты строк таблице и сравнении этого значения с "высотой" листа.

Эт мысль тоже правильная, но проще, как сказал, господин Казанский:

Sub io()
MsgBox ActiveSheet.HPageBreaks.Count + 1 ' кол-во листов на листе : )
End Sub

[nerv]

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

Как в VBA можно получить данные, после какой строки остальные на печатный лист на поместятся

см. в окне Immediate

Sub io()
Dim x As Object
With ActiveWindow
    .View = xlPageBreakPreview
    For Each x In Sheets(1).HPageBreaks
        Debug.Print x.Location(0).Address
    Next
    .View = xlNormalView
End With
End Sub

[OMEN_6666]

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

[nerv]

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

последняя строка на каждом печатном листе, чтобы вместо нее вставлять строку с итогами, а ее (найденную строку) переносить на следующий лист.

Откуда мне знать, где у Вас строка с итогами? Из приложенного файла это не понятно. К тому же не ясно, какой именно строкой с итогами надо заменить: общей итоговой или итоговой по листу.

Утрированно: замените строку

Debug.Print x.Location(0).Address

на

x.Location(0).Value = "Results"

[OMEN_6666]

nerv, большое спасибо.

[OMEN_6666]

И все же помогите, пожалуйста, найти ошибку в коде. В приложенном ранее файле я пробовал на отвлеченном примере реализовать метод, предложенный господином Казанским. Суть заключалась в том, чтобы проверить, является ли проверяемая строка строкой, над которой находится разрыв со следующей страницей, потому что в алгоритме моей основной задачи (в моем вИдении) добавление строк осуществляется последовательно следующим образом:

1. В акт добавляется строка с данными.
2. Производится проверка, будет ли над этой строкой разрыв.
3а. Если разрыв будет, то перед предыдущей строкой вставляется строка с итогами и происходит переход к пункту 1.
3б. Если разрыва нет, то происходит переход к пункту 1.

Но в своем примере, я, видимо, неправильно прописал условие выбора:

Sub РазбивкаНаЛисты()
Dim i, j As Integer
j = 1
For i = 2 To 29
If Sheets("Лист1").HPageBreaks(j).Location.Address = Sheets("Лист1").Columns(1).Rows(i) Then
Sheets("Лист1").Columns(2).Rows(i) = "разрыв"
j = j + 1
End If
Next i
End Sub

[OMEN_6666]

Блгодаря, Вашим общим усилиям, разобрался:

Sub РазбивкаНаЛисты()
Dim i, j As Integer
j = 1
For i = 2 To 400
If j > Sheets("Лист1").HPageBreaks.Count Then
j = j - 1
End If
If Sheets("Лист1").HPageBreaks(j).Location(0).Address = Sheets("Лист1").Columns(1).Rows(i).Address Then
Sheets("Лист1").Columns(2).Rows(i) = "разрыв"
j = j + 1
End If
Next i
End Sub

СПАСИБО!!!