印刷の設定を高速化する
プリンター通信を一時停止して複数のページ設定をまとめて変更します。
実行前に確認
- エラー時も通信を戻します。PrintCommunication=Trueでまとめた設定を確定します。実際の印刷はしません。
1サンプルコード
Sub Sample3098()
Dim oldComm As Boolean
oldComm = Application.PrintCommunication
On Error GoTo Failed
Application.PrintCommunication = False
With ThisWorkbook.Worksheets("練習").PageSetup
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.PrintCommunication = True
Application.PrintCommunication = oldComm
Exit Sub
Failed:
On Error Resume Next
Application.PrintCommunication = True
Application.PrintCommunication = oldComm
On Error GoTo 0
MsgBox "設定を完了できませんでした。プリンターを確認してください。"
End Sub図で見る操作の流れ
イメージ図コードに沿った概念図です。実際の画面や実行結果ではありません。
マクロ：元の状態を保持
PrintCommunicationの値を覚え、プリンター通信を一時停止
マクロ：設定をまとめる
「練習」を横向き・横1ページ・縦のページ数制限なしに設定
マクロ：確定して復帰
PrintCommunication=Trueで確定後、元の通信状態へ戻す
実印刷はしません。エラー時も通信を戻す処理を試み、完了できなかった旨を表示します。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。シート名を「練習」に変更します。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3098内にカーソルを置いてF5で実行します。プリンター通信を一時停止して複数のページ設定をまとめて変更します。