VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur VPageBreaks-Eigenschaft

In diesem Beispiel wird die gesamte Anzahl der horizontalen Seitenwechsel des ganzen Bildschirms und des Druckbereichs angezeigt.

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"