Свойство Worksheet.HPageBreaks (Excel)

Возвращает коллекцию HPageBreaks , представляющую горизонтальные разрывы страниц на листе. Только для чтения.

Синтаксис

expression. HPageBreaks

выражение Переменная, представляющая объект Worksheet .

Замечания

Существует ограничение в 1026 горизонтальных разрывов страниц на лист.

Пример

В следующем примере кода отображается количество горизонтальных разрывов страниц в полноэкранном режиме и области печати.

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 и обратная связь.