Excel中有关打印预览的一些VBA代码

来源:转载

显示指定工作表的打印预览,假如该工作表名称为“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

分享给朋友:
您可能感兴趣的文章:
随机阅读: