Hi,

I have several rows hidden at different areas and many defined pagebrakes -
about 25 of them.
When I run this line in Workbook_BeforePrint the printout areas will be ok,
but the line sweep away all my pagebrakes! How can I keep the pagebrakes as
they should???

....
Sheet1.PageSetup.PrintArea = Sheet1.Range(Cells(1, 1),
Cells(Sheet1.Range("bpAfSeTab").Row - 1,
15)).SpecialCells(xlVisible).Address
....

(bpAfFiTab = cell reference in the A:A column that tell where the end is,
dynamic because of tables of dynamic sizes)


Regards

That line won't affect your pagebreaks. Perhaps you are using fit to print
which ignores pagebreaks.

--
Regards,
Tom Ogilvy

"Marie J-son" wrote in message
...
Hi,

I have several rows hidden at different areas and many defined
pagebrakes -
about 25 of them.
When I run this line in Workbook_BeforePrint the printout areas will be
ok,
but the line sweep away all my pagebrakes! How can I keep the pagebrakes
as
they should???

...
Sheet1.PageSetup.PrintArea = Sheet1.Range(Cells(1, 1),
Cells(Sheet1.Range("bpAfSeTab").Row - 1,
15)).SpecialCells(xlVisible).Address
...

(bpAfFiTab = cell reference in the A:A column that tell where the end is,
dynamic because of tables of dynamic sizes)


Regards