本示例将当前工作表页面设置的打印缩放比例设为 90%。

ActiveSheet.PageSetup.Zoom = 90