Returns a VPageBreaks collection that represents the vertical page breaks on the sheet. Read-only.
For information about returning a single member of a collection, see Returning an Object from a Collection.
Example
This example displays the total number of full-screen and print-area vertical page breaks.
For Each pb in Worksheets(1).VPageBreaks
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"