PageSetup.Zoom不会更新分页符

Question

ActiveSheet.PageSetup.zoom = 80

如果我重置所有分页符然后使用上面的代码更改我的比例，它不会调整自动分页符。如果我手动进入“文件”菜单下的“页面设置”，则比例已调整为80％。如果我按OK，则分页符将自动更改。如何在VBA中更新分页符？

Answer 1

您需要使用ActiveWindow.View更新网页浏览。

例如：

Sub Zoom()

ActiveSheet.PageSetup.Zoom = 80
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True

End Sub