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