Worksheet.HPageBreaks 属性 (Excel)

返回一个 HPageBreaks 集合，该集合代表工作表上的水平分页符。 此为只读属性。

语法

表达式。HPageBreaks

表达 一个代表 Worksheet 对象的变量。

备注

每个工作表有 1，026 个水平分页符的限制。

示例

下面的代码示例显示全屏和打印区域水平分页符的数量。

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"

下面的代码示例在 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。