recalculate page breaks after setting Zoom in pagesetup

[Par]

Ok I've seen the 1,000s of people trying to program page setup options
and having a bad time. So let me add more problems.

I was using Excel 2000. I now have 2007. I had a workaround for this
bug in 2000/2003 but I can't seem to get around it in 2007 (and of
course it isn't fixed)

Here is what I'm trying to do:
Set the page to Landscape, 1 page wide
Then add some intelligent page breaks by looking for the automatic
page break and putting a manual break above it where the data recently
changed.

The problem is that the automatic page break is not recalculated after
setting the zoom factor programatically.

if I do:
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = 65
End With

the first page break is on row 33

In 2000/2003 I could :
SendKeys "%(FUA)" + Format(ActiveSheet.PageSetup.Zoom) + "~", True

This is a crappy way to get around it but after the sendkeys the first
page break would not be row 53

I cannot get a key stroke method to the page setup dialog box in
Excel2007 to work from sendkeys (I can do it manually but that doesn't
help)

Anybody know how to get Excel to recalculate the page breaks?
Obviously something is being called from teh page setup dialog box
that I can't find directly.

Thanks for any help.
Pete

 

[Par]

In 2000/2003 I could :

SendKeys "%(FUA)" + Format(ActiveSheet.PageSetup.Zoom) + "~", True

OK I figured out that they changed the way sendkeys works. In prior
versions if you wanted to do multiple ALT keys without releasing ALT,
you put them in () but in 2007 you don't need to do that so I can
Sendkeys "%PSP%A" + Format(ActiveSheet.PageSetup.Zoom) + "~", True

This is still not a good solution.

I really need to know what is called to process the change from the
page setup so I can call it after changing the zoom