Excel VBA 印刷プレビューを表示する PrintPreviewメソッド

PrintPreview【ﾌﾟﾘﾝﾄﾌﾟﾚﾋﾞｭｰ】メソッド

印刷プレビューを表示するには、PrintPreview【ﾌﾟﾘﾝﾄﾌﾟﾚﾋﾞｭｰ】メソッドを使用します。

PrintOut【ﾌﾟﾘﾝﾄｱｳﾄ】メソッドの引数PreviewをTrueに指定した場合の印刷プレビューとの違いは、PrintPreview【ﾌﾟﾘﾝﾄﾌﾟﾚﾋﾞｭｰ】メソッドの場合は、引数EnableChanges【ｲﾈｰﾌﾞﾙﾁｪﾝｼﾞｽﾞ】をFalseに指定することにより印刷プレビュー画面にある「ページ設定」「余白の表示」
などの設定ボタンを無効にすることができます。ユーザーにページ設定を変更してほしくない場合に有効です。

PrintPreview【ﾌﾟﾘﾝﾄﾌﾟﾚﾋﾞｭｰ】メソッドの書式と設定値(引数)の説明

[]内は省略可能です。
オブジェクト.PrintPreview( EnableChanges )

オブジェクト（必須）
Workbook【ﾜｰｸﾌﾞｯｸ】オブジェクト、Sheets【ｼｰﾂ】コレクション、Worksheet【ﾜｰｸｼｰﾄ】オブジェクト、Worksheets【ﾜｰｸｼｰﾂ】コレクション、Chart【ﾁｬｰﾄ】オブジェクト、Charts【ﾁｬｰﾂ】コレクション、Range【ﾚﾝｼﾞ】オブジェクト、Window【ｳｨﾝﾄﾞｳ】オブジェクトの何れかを指定します。
EnableChanges【ｲﾈｰﾌﾞﾙﾁｪﾝｼﾞｽﾞ】（省略可）
印刷プレビュー画面にある「ページ設定」と「余白の表示」を無効にする場合はFalseを指定します。省略した場合はTrueが指定され「ページ設定」と「余白の設定」は有効になります。

※印刷プレビュー内の「印刷」ボタンをクリックすると印刷が実行されてから印刷プレビュー画面が閉じられ、Printpraview【ﾌﾟﾘﾝﾄﾌﾟﾚﾋﾞｭｰ】メソッドのあとに続くステートメントが実行されます。したがって、「印刷プレビューを閉じる」をクリックされることだけを想定してPrintpraview【ﾌﾟﾘﾝﾄﾌﾟﾚﾋﾞｭｰ】メソッドのあとにPrintOut【ﾌﾟﾘﾝﾄｱｳﾄ】メソッドを記述していると「印刷」ボタンをクリックされたときに印刷が2度実行されてしまうので注意が必要です。（「印刷」ボタンは無効になりません）

※オブジェクトをActiveWorkbook【ｱｸﾃｨﾌﾞﾜｰｸﾌﾞｯｸ】に指定して、ブック内のすべてのシートをプレビュー対象にした場合でもプレビューが表示されるのはアクティブシートのみです。印刷はすべてのシートに対して実行されます。

印刷設定を無効にした印刷プレビューコード例

Sub 印刷プレビュー()
ActiveSheet.PrintPreview False
End Sub

実行結果

以上で、印刷プレビューを表示する PrintPreview【ﾌﾟﾘﾝﾄﾌﾟﾚﾋﾞｭｰ】メソッドについての解説を終了します。ありがとうございました。