構文
object.PrintPreview( EnableChanges )
引数
| 引数 | 説明 | 引数を省略した場合 |
| object | 対象となるオブジェクトを指定 | 省略不可 |
| ・Windowオブジェクト | ||
| ・Workbook オブジェクト | ||
| ・Worksheet オブジェクト | ||
| ・Range オブジェクト | ||
| EnableChanges | ユーザーにページ設定オプションを 設定させる→True 設定させない→False | TRUE |
コードサンプル
Public Sub sample()
'■ActiveSheetを印刷プレビュー表示
ActiveSheet.PrintPreview
'■ActiveSheetを印刷プレビュー表示(ページ設定、余白表示が無効)
ActiveSheet.PrintPreview , False
'■指定範囲を印刷プレビュー表示
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Sheet1")
ws.Range("A1:D50").PrintPreview
'■ブック全体(シート全て)をまとめて印刷プレビュー表示
ActiveWorkbook.PrintPreview
End Sub
注意点
- 非表示シートを印刷プレビュー(PrintPreview)すると何も表示されません。
- ScreeenUpdate＝Falseの場合は、正常に動作しなくなります。(詳細)
コメント