Propriedade Folha de Cálculo.HPageBreaks (Excel)

Devolve uma coleção HPageBreaks que representa as quebras de página horizontais na folha. Somente leitura.

Sintaxe

expressão. HPageBreaks

expressão Uma variável que representa um objeto de Folha de Cálculo .

Comentários

Existe um limite de 1026 quebras de página horizontais por folha.

Exemplo

O seguinte exemplo de código apresenta o número de quebras de página horizontais de ecrã inteiro e área de impressão.

For Each pb in Worksheets(1).HPageBreaks 
    If pb.Extent = xlPageBreakFull Then 
        cFull = cFull + 1 
    Else 
        cPartial = cPartial + 1 
    End If 
Next 
MsgBox cFull & " full-screen page breaks, " & cPartial & _ 
    " print-area page breaks"

O seguinte exemplo de código adiciona uma quebra de página quando o valor de uma célula na coluna A é alterado.

Sub AddPageBreaks() 
    StartRow = 2 
    FinalRow = Range("A65536").End(xlUp).Row 
    LastVal = Cells(StartRow, 1).Value 
    For i = StartRow To FinalRow 
    ThisVal = Cells(i, 1).Value 
    If Not ThisVal = LastVal Then 
    ActiveSheet.HPageBreaks.Add before:=Cells(i, 1) 
    End If 
    LastVal = ThisVal 
    Next i 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.