Excel) (Worksheet.HPageBreaks 屬性

會傳回 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 支援與意見反應。