Oct 7, 2009

Location of PageBreak

List the location of pagebreak in the current sheet

Debug.Print ActiveSheet.HPageBreaks.Count

For i = 1 To ActiveSheet.HPageBreaks.Count
Set p = ActiveSheet.HPageBreaks.Item(i)
Debug.Print p.Location.Address
Next i
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)