Tenho uma planilha que tem uma tabela sendo o cabeçalho na linha 4 e embaixo seguem os registros.
Quando vou imprimir, o calc imprime na primeira pagina o Cabeçalho e logo abaixo os registro. Na segunda página ele segue imprimindo os registros de forma “corrida”, sem exibir o cabeçalho nessa pagina e nas seguintes.
Teria alguma forma de fazer imprimir o cabeçalho da tabela em todas as páginas da impressão?
Complemento
Achei muito interessante a dica!
Eu estava gerando minha área de impressão através de uma macro. Então pesquisei sobre a sua dica e acabei incluindo essa “Linhas a repetir” na macro
Ficou assim:
'================================================|'
Sub AreaImpressao(planNome As String, paStartCol As Long, paStartRow As Long, paEndCol As Long, paEndRow As Long)
'================================================|'
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim Title_CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim oDoc, oPlanBase As Object
Dim myPrintAreas As Variant
Dim numSheet As Integer
oDoc = ThisComponent
oPlanBase = oDoc.Sheets.getByName(planNome)
'índice da planilha'
numSheet = oPlanBase.RangeAddress.Sheet
'oPlanBase = oDoc.Sheets(0)'
CellRangeAddress.Sheet = numSheet
'Intervalo da área de impressão'
CellRangeAddress.StartColumn = paStartCol
CellRangeAddress.StartRow = paStartRow
CellRangeAddress.EndColumn = paEndCol
CellRangeAddress.EndRow = paEndRow
myPrintAreas = Array(CellRangeAddress)
'Incluir área de impressão'
oPlanBase.setPrintAreas(myPrintAreas())
'//---------------------------'
'Repetir o título da tabela em todas as páginas impressas
'//---------------------------'
'Informar que queremos repetir linhas do título'
oPlanBase.setPrintTitleRows(True)
'intervalo de linhas a serem repetidos, no caso apenas a 1ª linha'
Title_CellRangeAddress.StartRow = 0
Title_CellRangeAddress.EndRow = 0
'Incluímos as linhas a repetir'
oPlanBase.setTitleRows(Title_CellRangeAddress)
'//---------------------------'
End Sub
