返回 VPageBreaks 集合,该集合代表工作表上的垂直分页符。只读。
有关返回集合中单个成员的详细信息,请参阅返回集合中的对象。
本示例显示全屏幕垂直分页符和打印区域垂直分页符的总数。
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"