Cannot force Page Breaks to be calculate

Code now reads
Application.ScreenUpdating = True: DoEvents
ActiveWindow.View = xlPageBreakPreview ' or page breaks don't recalculate
Application.ScreenUpdating = True
DoEvents
but it makes no difference. Pagebreaks become valid only when the sheet is waiting for input