Propiedad Worksheet.HPageBreaks (Excel)

Devuelve una colección HPageBreaks que representa los saltos de página horizontales de la hoja. Solo lectura.

Sintaxis

expresión. HPageBreaks

expresión Variable que representa un objeto Worksheet .

Observaciones

Hay un límite de 1026 saltos de página horizontales por hoja.

Ejemplo

En el ejemplo de código siguiente se muestra el número de saltos de página horizontales de pantalla completa y área de impresión.

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"

En el ejemplo de código siguiente se agrega un salto de página cuando cambia el valor de una celda de la columna A.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.