[[20251213212432]]　『マクロでの印刷プレビュー後終了時のプレビュー画』（隠居Z）　ページの最後に飛ぶ

『マクロでの印刷プレビュー後終了時のプレビュー画面残存の件』（隠居Z）

こんばんわ。。。(*^^*)
何時もお世話になっております。

最近ふと気が付いた事なのですが。
１．マクロで印刷時、プレビューせずに印刷
２．同、プレビュー後に印刷
３．同、プレビュー後キャンセル
以上３点いづれもエクセル終了時にプレビュー画面が一瞬ですが
表示され、エクセルは終了します。
タスクマネジャーで確認しても幽霊プロセスは見当たらない様なのですが
このままで、問題ないでせうか。^^;
解決策等々、アドバイス、ご教授の程、よろしくお願いいたします。m(__)m

シンプルな私の実験用コード

Ａ．一番左のシートのA1:F17に情報あります。

 Option Explicit
Sub pRintPreview_And_Excell_End()
    With Worksheets(1)
        .PrintPreview
    End With
    ThisWorkbook.Save
     Worksheets(3).Activate
    Application.Quit
End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

昔の記憶ですが、PrintPreviewで、マクロ止まりませんか？
プレビューは、マクロで制御できないのでキャンセルや印刷は手動だったような気がします。もしくはセンドキーズ当たり
プレビュー後にあえて印刷は2度手間では？
最近のは変わったのかな？
doeventsとか挟むとか
（気分） 2025/12/13(土) 22:15:47

おはようございます。。。＾＾
仰せの通りかと。説明不足で相済みません
プレビュー画面での
印刷＝左端の印刷ボタン
キャンセル＝「印刷プレビューを閉じる×」をクリック
各操作は手動です。
その後マクロは次の行から自動で実行されますです。

 Option Explicit
Sub pRintPreview_And_Excell_End()
    With Worksheets(1)
        .PrintPreview
    End With
    ThisWorkbook.Save
     Worksheets(3).Activate

     DoEvents

    Application.Quit
End Sub

挟んでみましたが　動作は変わりませんでした。
深夜の中、
ご教授ありがとう御座いました。
感謝いたします。
m(__)m
（隠居Z） 2025/12/14(日) 08:11:03

 Application.Ontimeを使って明示的に遅延処理させたらどうなりますか？
（xyz） 2025/12/14(日) 11:23:28

xyz さん
ありがとうございます。
やってみましたが。。。かわりませんでした。

Ａ．一番左のシートのA1:F17　全てに　"EXCEL"　を入力してます
Ｂ．3番目のシートはB2:G13をマージして "Sheet 3 !" を入力　フォントサイズを70にしてます^^;

一瞬なのですが本来ならみえるのは　"Sheet 3 !"　なのでしょうが
EXCEL がたくさん　見えますです。　　
ま
他に影響が無ければこんなものかな～と理解しようかと思っております。
貴重なお時間を賜り、有難う御座いました。
試したコード [12:20　修正しました^^;]

 Option Explicit
Sub pRintPreview_And_Excell_End()
    With Worksheets(1)
        .PrintPreview
    End With
    ThisWorkbook.Save
     Worksheets(3).Activate
    Application.OnTime Now + TimeSerial(0, 0, 5), "proc_end", False
End Sub
Sub proc_end()
    DoEvents
    Application.Quit
    MsgBox "Bye !?"
End Sub

でした　(*^^*)v

（隠居Z） 2025/12/14(日) 11:53:52

 > EXCEL がたくさん　見えますです。
 これはSheet1に書いたものが見えるということですか？
 （それとも複数のアプリ画面が見えるということですか？）

 Sheet3がアクティブなのに、他のシートが表示される、ということですか。
 余りそういう経験はないのですが、なんらかのイベントプロシージャが効いているとかないですか？
 # すみません、断続的にしかこちらにこないので、会話にならなかったら済みません。
（xyz） 2025/12/14(日) 16:26:36

＞＞これはSheet1に書いたものが見えるということですか？

はい、Sheet1の印刷プレビュー画面です。

＞＞ Sheet3がアクティブなのに、他のシートが表示される、ということですか。

はい　その通りです。

＞＞余りそういう経験はないのですが、なんらかのイベントプロシージャが効いているとかないですか？

提示のサンプルではイベントはなさそうです。
印刷プレビュー画面　が残存かどうかは解りませんが、エクセル本体終了直後、一瞬見えます。
ただ、入力フォーム作成中のブックなので、他の新規ブックでも再現するか
試して見ます。

＞＞# すみません、断続的にしかこちらにこないので、会話にならなかったら済みません。

とんでもございません。
お付き合い賜り本当に感謝いたしております。 << _ _ >>

（隠居Z） 2025/12/14(日) 16:48:04

コメント返信：

[ 一覧(最新更新順) ]

[[20251213212432]] 『マクロでの印刷プレビュー後終了時のプレビュー画』（隠居Z） ページの最後に飛ぶ

[[20251213212432]]　『マクロでの印刷プレビュー後終了時のプレビュー画』（隠居Z）　ページの最後に飛ぶ