Pergunte aqui
0

É possível imprimir o cabeçalho de uma tabela em todas as páginas? Calc

perguntadas 2019-03-07 22:57:35 +0100

imagem do gravatar de mrkalvin

updated 2019-03-08 01:01:03 +0100

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?

Descrição da imagem

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
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2019-03-07 23:11:36 +0100

Pode sim @mrkalvin, siga as imagens:

Descrição da imagem

Note (1) no intervalo de impressão não tem a(s) linha(s) a repetir...

Descrição da imagem

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-03-07 22:57:35 +0100

Lidas: 19 vezes

Última atualização: Mar 08