Tìm vị trí ngắt trang của sheet

[phamduylong]

Để cho biết các trang in trên sheet, Excel kẻ các đường nét gạch phân biệt các trang in một cách tự động. Mình muốn tìm vị trí các ngắt trang đó bằng VBA.
Ví dụ ngắt trang 1 sang trang 2 tại ô nào ? trang 2 sang trang 3 tại ô nào ?

 

[dat2007]

Thầy dùng đoạn Code sau:

Sub Find_PageBreaks()
    Dim nBreaks As Integer, i As Integer
    nBreaks = ActiveSheet.HPageBreaks.Count
    For i = 1 To nBreaks
        Cells(i, 1) = ActiveSheet.HPageBreaks(i).Location.Address
    Next i
End Sub

 

[phamduylong]

Thank dat2007.
Mình dùng cái này để kiểm tra trước khi in xem trang in có bị rớt dòng hay cột sang trang khác không để đặt dấu ngắt trang đúng vị trí.