Excel 待ち時間設定

質問

Excel で印刷が終わった頃にメッセージボックスを出したいのですが、下記のコードにどう書き加えたらよいですか、教えて下さい。よろしくお願いします。

With ActiveSheet
（範囲指定用コード：maxR 読み取り）
End With
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1" '←見出し 1行
.PrintArea = "A1:G" & maxR '←印刷範囲
End With
ActiveSheet.PrintOut

Rtn = MsgBox("印刷を終えて終了します")

回答No.2

pkh4989 · ベストアンサー

こんにちは。
以下のようにしてください。

With ActiveSheet
（範囲指定用コード：maxR 読み取り）
End With
With ActiveSheet.PageSetup
　　.PrintTitleRows = "$1:$1" '←見出し 1行
　　.PrintArea = "A1:G" & maxR '←印刷範囲
End With
ActiveSheet.PrintOut

Application.Wait (Now + TimeValue("0:00:20")) '←20秒待ち
Rtn = MsgBox("印刷を終えて終了します")

お礼

pkh4989さん　ありがとうございました。
ちょうど２０秒で２枚目の印刷が終わり、ピッタリでした。
お手数をお掛けしました。

回答No.1

pkh4989

こんにちは。

メッセージボックスでは、無理があるので、以下の方法では如何でしょうか。
メッセージ表示用フォームを作成して、表示する方法です。

With ActiveSheet
（範囲指定用コード：maxR 読み取り）
End With
With ActiveSheet.PageSetup
　　.PrintTitleRows = "$1:$1" '←見出し 1行
　　.PrintArea = "A1:G" & maxR '←印刷範囲
End With
ActiveSheet.PrintOut

UserForm1.Show False 'メッセージ表示
Application.Wait (Now + TimeValue("0:00:03")) '←3秒待ち
Unload UserForm1 'メッセージ終了

<フォーム作成方法>
(1) メッセージ表示用フォームを作成 (UserForm1)
(2) ラベルを貼り付け 「印刷を終えて終了します」の文字を入れる(文字ザイズ等は調節する必要があります)
(3) フォームのStartUpPositionプロパティを「2-画面の中央」に設定する

お礼

ありがとうございました。

補足

pkh4989さん　ありがとうございます。
質問の仕方が下手なのでご迷惑をお掛けします。

印刷が始まるとすぐ出てくるメッセージボックスを、少し遅らせて出したいのです。
PrintOut のコードから、20～30秒ぐらい経って出ればよいなと思っています。

ユーサーフォームは別のことでやってみて酷い目に会いましたので、使いたくありません。
すみません、よろしくお願いします。