Compartilhar via

Propriedade Worksheet.HPageBreaks (Excel)

  • Artigo

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

Sintaxe

expressão. Hpagebreaks

Expressão Uma variável que representa um objeto Worksheet .

Comentários

Há um limite de 1.026 quebras de página horizontais por planilha.

Exemplo

O exemplo de código a seguir exibe o número de quebras de página horizontal de tela inteira 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 exemplo de código a seguir 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.