Hi,

It seems pretty easy to add a page break, but I'm trying to find the rows
where a horizontal page break exists. I've been trying use something ilke
the following to loop through them and see their location

For x = 1 To Worksheets(1).HPageBreaks.Count
debug.print Worksheets(1).HPageBreaks(x).Location
Next

but that doesn't return anything.

I have a changing report where I need to insert a line after a page break to
add a header row (the fluid part).

Any assistance is greatly appreciated!

Thanks,

kohai

Hi kohai

Look at this macro
http://www.rondebruin.nl/hpagebreaks.htm

read about the bug in the macro

--
Regards Ron de Bruin
http://www.rondebruin.nl


"kohai" wrote in message ...
Hi,

It seems pretty easy to add a page break, but I'm trying to find the rows
where a horizontal page break exists. I've been trying use something ilke
the following to loop through them and see their location

For x = 1 To Worksheets(1).HPageBreaks.Count
debug.print Worksheets(1).HPageBreaks(x).Location
Next

but that doesn't return anything.

I have a changing report where I need to insert a line after a page break to
add a header row (the fluid part).

Any assistance is greatly appreciated!

Thanks,

kohai

Hello Kohai,

The Location property is a Range object. You need to only add the
Address property to return the cell's location. See Below...

For x = 1 To Worksheets(1).HPageBreaks.Count
debug.print Worksheets(1).HPageBreaks(x).Location.Address
Next

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=505138

Thank you both for your replies. They will help me proceed to the next stage
of formatting my report to how I'd like it to look.

Regards,
kohai

"Leith Ross" wrote:


Hello Kohai,

The Location property is a Range object. You need to only add the
Address property to return the cell's location. See Below...

For x = 1 To Worksheets(1).HPageBreaks.Count
debug.print Worksheets(1).HPageBreaks(x).Location.Address
Next

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=505138