Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перенести последнюю строку отчета вместе с подвалом отчета / 2 сообщений из 2, страница 1 из 1
01.09.2016, 11:13
    #39301736
pf
pf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенести последнюю строку отчета вместе с подвалом отчета
Существует некий отчет, который формируется в Excel, допустим, расходная накладная, счет фактура, ведомость, не суть важно.
У него есть подвал отчета , где находятся подписи ответственных лиц и другая некая информация... Необходимо, чтобы последняя строка отчета всегда переносилась на следующую страницу (если не помещается на текущей) вместе с подвалом отчета. Т.е., чтобы подвал отчета никогда не разрывался и печатался вместе с последней строчкой отчета. Как-то с идеями туго.... Как это реализовать макросом в Excel?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2016, 07:55
    #39302418
sergeyvg
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перенести последнюю строку отчета вместе с подвалом отчета / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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