VBAで印刷プレビューするとフリーズして操作不能になる時の対処法

エクセルで印刷する前に確認の為に印刷プレビューを実行することがあると思いますが、フリーズして操作不能になってしまった経験はありませんか？

ユーザーフォームに間違ったVBAコードを書いてしまうと起きてしまうエラーなので、トラブルにならないようにする対処法をご紹介します。

印刷プレビューを表示するVBA

VBAコードを使って印刷プレビューを表示するには、PrintPreviewだけなのでとても簡単です。

ワークシート上のコマンドボタン

下記コードをワークシート上に配置したコマンドボタンにVBAコードを記述するだけで、印刷プレビューができます。

このように書いたVBAコードで表示しているシートの印刷プレビューを表示できます。

ユーザーフォーム上のコマンドボタン

それでは次に、このVBAコードをユーザーフォームに配置したコマンドボタンに記述すると、通常はマクロ名の宣言部分 「Sub 印刷プレビュー()」を 「 Private Sub CommandButton1_Click() 」に代えるだけなのですが・・・

やってしまうと、下記のような印刷プレビュー画面とユーザーフォームが同時表示されて操作不能になってしまい、エクセルを強制終了するしかありません。

こうなってしまったら強制終了するしかないので、パソコンのキーボード【ctrl+alt+delete】ですよね・・・

保存もされずに作業した内容が最悪消えてしまう事も。

エラー回避するVBAコード

先ほど書いたVBAコードでは、ユーザーフォームが表示されたままにもかかわらず、印刷プレビューまで表示させてしまった為にどちらの操作もできなくなったことが原因です。

そこで、印刷プレビューを表示させる直前にユーザーフォームを閉じるようにVBAコードを追加して書くことで解決です。

関連記事