Как перенести шапку в Excel на новую страницу?

LisaAlisa

Подскажите, пожалуйста. Есть большой отчет в Excel. Чтобы красиво смотрелось, надо как-то переносить шапку на следующую страницу. Как?

trop

укажите сквозные строки в параметрах печати

Valeriy

Считать строки:
например по сто строк и снова выводишь шапку

--------------------------------------------

Code:

выводишь шапку первый раз

loop at xls_tab.
i = i + 1.
выводишь строки

if i = 100.
   выводишь шапку
   i = 0.
endif. 
endloop.

LisaAlisa

trop написал(а):

укажите сквозные строки в параметрах печати

А можно по-подробнее?

LisaAlisa

Valeriy написал:

Считать строки:
например по сто строк и снова выводишь шапку

--------------------------------------------

Code:

выводишь шапку первый раз

loop at xls_tab.
i = i + 1.
выводишь строки

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

Besa

LisaAlisa написал(а):

Valeriy написал:

Считать строки:
например по сто строк и снова выводишь шапку

--------------------------------------------

Code:

выводишь шапку первый раз

loop at xls_tab.
i = i + 1.
выводишь строки

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

Вам же посоветовали настроить сам шаблон, то есть прозрачность тех строк где печатается шапка, для этого надо знать Эксель, чем лучше настроите шаблон, тем мешьше придется кода писать в АБАПЕ...

Valeriy

Настроить шаблон Ekselя

Code:

Файл->Параметр стр. и укажи сквозную строку

LisaAlisa

Valeriy написал:

Настроить шаблон Ekselя

Code:

Файл->Параметр стр. и укажи сквозную строку

Спасибо огромное!!!! Так всё просто оказалось :-)

Valeriy

LisaAlisa написал(а):

Valeriy написал:

Настроить шаблон Ekselя

Code:

Файл->Параметр стр. и укажи сквозную строку

Спасибо огромное!!!! Так всё просто оказалось :-)

Пожалуйста

Lastya

Valeriy написал:

LisaAlisa написал(а):

Valeriy написал:

Настроить шаблон Ekselя

Code:

Файл->Параметр стр. и укажи сквозную строку

Спасибо огромное!!!! Так всё просто оказалось :-)

Пожалуйста

но если после таблицы идут каки-либо подписи, или доп текст, то возможны случаи, когда на новой странице будет только шапка и эти подписи без таблицы

Parazit

Lastya написал(а):

но если после таблицы идут каки-либо подписи, или доп текст, то возможны случаи, когда на новой странице будет только шапка и эти подписи без таблицы

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

Lastya

Parazit написал:

Lastya написал(а):

но если после таблицы идут каки-либо подписи, или доп текст, то возможны случаи, когда на новой странице будет только шапка и эти подписи без таблицы

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

а если у пользователя на компе стоит запрет на макросы?повышенная безопасность все дела..

Parazit

Lastya написал(а):

а если у пользователя на компе стоит запрет на макросы?повышенная безопасность все дела..

Запрет на макросы работает далеко не на все макросы. Попробуйте.

LisaAlisa

Parazit написал:

Lastya написал(а):

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

А подскажите пожалуйста какие в EXCEL есть функции для объединения строк таблицы и подписей для создания макроса.

Parazit

LisaAlisa написал(а):

А подскажите пожалуйста какие в EXCEL есть функции для объединения строк таблицы и подписей для создания макроса.

Я писал макрос и вешал на событие книги:

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Неразрывные подписи
  ActiveSheet.ResetAllPageBreaks
  Dim R As Range
  Set R = Range("ИтогиПодписи")
  R.Rows.PageBreak = xlPageBreakNone
  For Each Rw In R.Rows
    If Rw.PageBreak = xlPageBreakAutomatic Then
      R.Rows.PageBreak = xlPageBreakManual
    End If
  Next
End Sub

Правила форума

Как перенести шапку в Excel на новую страницу?

Кто сейчас на конференции