改ページの設定と取得

改ページはページの開始位置。
HPageBreaksとVPageBreaksがある。多分片方しか使わない。

'改ページ
ActiveSheet.HPageBreaks.Add Range("A10")
ActiveSheet.VPageBreaks.Add Range("B15")

'改ページと解除
ActiveSheet.Range("F9").PageBreak = xlPageBreakManual '改ページ
ActiveSheet.Range("F9").PageBreak = xlPageBreakNone '解除

'全て解除
ActiveSheet.ResetAllPageBreaks

Sub 改ページ位置の確認()
    
    Dim hPb As HPageBreak
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Worksheets("印刷ページ")
    
    For Each hPb In sh.HPageBreaks
        Debug.Print hPb.Location.Address
    Next
    
    Dim i As Integer
    For i = 1 To sh.HPageBreaks.Count
        Debug.Print sh.HPageBreaks(i).Location.Address
    Next
    
End Sub

以上。