Сквозные строки

[dalaty]

Вопрос как через макрос в ОО можно задать повторение шапки таблицы на каждой странице при печати?

[bigor]

И вам здравствуйте

Примерно так:

Код Выделить Развернуть

Sub PrintTitleRows
 Dim oRanges As New com.sun.star.table.CellRangeAddress
 oRanges.Sheet = 0
 oRanges.StartColumn = 0 : oRanges(0).StartRow = 0 'A1
 oRanges.EndColumn = 0   : oRanges(0).EndRow = 0  
   
 ThisComponent.CurrentController.getActiveSheet().setTitleRows(oRanges)
 ThisComponent.Print(Array())
End Sub

ps Подсмотрено в OOME_4_0.odt стр.349

[dalaty]

Добрый день, Bigor!

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