Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45378 / 76735

←次へ　｜　前へ→


	【36350】Re:印刷プレビューで確認してから印刷す...

ぺっし - 06/3/29(水) 16:14 -


	引用なし

	パスワード

早速の返信ありがとうございます！
う～ん、メッセージボックスを前に表示させてもいいんですが、
印刷プレビューとメッセージボックスが同じ画面に出てくるとベストです･･。

印刷プレビュー画面で印刷ボタンを押してしまった場合、
印刷プレビュー　→　印刷　→　印刷プレビュー画面閉じる　→
メッセージボックス　→　印刷　
になってしまうので。

できれば
印刷プレビュー　→　メッセージボックス　→　印刷　→　印刷プレビュー終了
としたいんです。

SendKeys "{ESC}"で印刷プレビュー終了を試してみたんですが、
印刷プレビューが立ち上がると
VBAの操作が出来なくなってしまうんですかね･･･

▼Kein さん：
>　MsgBox "次のプレビュー画面で印刷状態をチェックして下さい", 64
>　ActiveSheet.PrintPreview
>　res = MsgBox("印刷してもよろしいですか？",vbOKCancel)
>　If res=vbOK then
>　　 Activesheet.PrintOut
>　　 Else
>　　 Exit sub
>　End If
>
>というように、プレビューの前後にメッセージすることでカバーできませんか ?

0 hits

▼

【36348】印刷プレビューで確認してから印刷するには ぺっし 06/3/29(水) 15:36