Page breaks auto vs manual

[Daniel.Ro]

Hi there

Is there any way to determine what type of pagebreak are set on a worksheet?
I have a worksheet with some manual page breaks and some auto pagebreaks set by excel
I want to determine the location of the auto pagebreaks set by excel and move them but so far I'm not able to determin which one is auto and which manual set. Help

 

[ukmikeb]

Hi

For Horizontal Page Breaks try :-

X = ActiveSheet.HPageBreaks(1).Location.Row
If Rows(X).PageBreak = xlPageBreakAutomatic Then

For Vertical Page Breaks try :-

 X = ActiveSheet.VPageBreaks(1).Location.Column
If Columns(X).PageBreak = xlPageBreakAutomatic Then

change the 1 in brackets to the number of the Page Break you are testing.

The number of Page Breaks on a Page is determined by ActiveSheet.VPageBreaks.Count and ActiveSheet.HPageBreaks.Count respectively.

NB If you move or insert Page Break locations then the number of Page Breaks may change.

hth

 

[Daniel.Ro]

Thank you Mike

I don't know how much breaks are in the page and where are located.

But I solved it like this:

For i = 1 To ActiveSheet.HPageBreaks.Count    With ActiveSheet.HPageBreaks
        If ActiveSheet.Rows(.Item(i).Location.Row).PageBreak = xlAutomatic Then
MsgBox .Item(i).Location.Row