显示指定工作表的打印预览,假如该工作表名称为“Sheet1”:
Worksheets(\"Sheet1\").PrintPreview
显示活动工作表的打印预览:
Worksheets(\"Sheet1\").PrintPreview
显示工作簿中所有工作表的打印预览:
Sheets.PrintPreview
显示某一指定区域的打印预览,如当前工作表的A1:G10区域:
ActiveSheet.Range(\"A1:G10\").PrintPreview
显示某一工作表中的某个图表的打印预览,假如工作表名称为“Sheet3”,其中某个图表名称为“图表 1”:
Worksheets(\"Sheet3\").ChartObjects(\"图表 1\").Activate
ActiveChart.PrintPreview
显示指定的图表工作表的打印预览,假如该图表工作表名称为“Chart1”:
Charts(\"Chart1\").PrintPreview
显示“打印内容”对话框:
Application.Dialogs(xlDialogPrint).Show