powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перенести последнюю строку отчета вместе с подвалом отчета
2 сообщений из 2, страница 1 из 1
Перенести последнюю строку отчета вместе с подвалом отчета
    #39301736
Фотография pf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Существует некий отчет, который формируется в Excel, допустим, расходная накладная, счет фактура, ведомость, не суть важно.
У него есть подвал отчета , где находятся подписи ответственных лиц и другая некая информация... Необходимо, чтобы последняя строка отчета всегда переносилась на следующую страницу (если не помещается на текущей) вместе с подвалом отчета. Т.е., чтобы подвал отчета никогда не разрывался и печатался вместе с последней строчкой отчета. Как-то с идеями туго.... Как это реализовать макросом в Excel?
...
Рейтинг: 0 / 0
Перенести последнюю строку отчета вместе с подвалом отчета
    #39302418
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub test()
  RowD = 9 'последняя строка отчета
  RowB = 10 'начало подвала
  RowE = 15 'конец подвала
  For I = RowB To RowE
    If Rows(I).PageBreak <> xlNone Then
      Rows(RowD).PageBreak = xlPageBreakManual
      Rows(I).PageBreak = xlNone
      Exit For
    End If
  Next I
End Sub
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перенести последнюю строку отчета вместе с подвалом отчета
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]