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