How to set the Page Breaks in VBA and force 1 page by 2 pages

I am trying to force a 1 page by 2 page Print layout using a print dialogue. I think I have that.
I struggle because on a few of our people's computers the page break gets altered and it prints wrong.
So I am try to manually set the page break:

Please Login or Register  to view this content.

I have tried to set it at different rows and there is no change - so it is not working

Any ideas?

If I take out the .FitToPagesTall - the Page Break will get set