顯示指定工作表的打印預覽，假如該工作表名稱為“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