Compartir a través de

Propiedad Worksheet.HPageBreaks (Excel)

  • Artículo

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 .

Comentarios

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.