Excel VBA質問箱 IV

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

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


7869 / 13644 ツリー ←次へ | 前へ→

【36348】印刷プレビューで確認してから印刷するには ぺっし 06/3/29(水) 15:36 質問[未読]
【36349】Re:印刷プレビューで確認してから印刷する... Kein 06/3/29(水) 15:51 回答[未読]
【36350】Re:印刷プレビューで確認してから印刷す... ぺっし 06/3/29(水) 16:14 質問[未読]
【36364】Re:印刷プレビューで確認してから印刷す... bykin 06/3/29(水) 22:30 回答[未読]
【36377】Re:印刷プレビューで確認してから印刷す... ぺっし 06/3/30(木) 8:58 お礼[未読]

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

引用なし
パスワード
   印刷プレビューを見せつつ、メッセージボックスで問題がないか確認を取りたいんですが・・・
↓のやり方だと印刷プレビューは表示されるがメッセージボックスが表示されず、
印刷プレビューを閉じるとメッセージボックスが表示されます・・・


ActiveSheet.PrintPreview
res = MsgBox("印刷してもよろしいですか?",vbOKCancel)
 If res=vbOK then
   Activesheet.PrintOut
   Else
   Exit sub
 End If


何か方法があるのでしょうか。よろしくお願いします。

【36349】Re:印刷プレビューで確認してから印刷す...
回答  Kein  - 06/3/29(水) 15:51 -

引用なし
パスワード
    MsgBox "次のプレビュー画面で印刷状態をチェックして下さい", 64
 ActiveSheet.PrintPreview
 res = MsgBox("印刷してもよろしいですか?",vbOKCancel)
 If res=vbOK then
   Activesheet.PrintOut
   Else
   Exit sub
 End If

というように、プレビューの前後にメッセージすることでカバーできませんか ?

【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
>
>というように、プレビューの前後にメッセージすることでカバーできませんか ?

【36364】Re:印刷プレビューで確認してから印刷す...
回答  bykin  - 06/3/29(水) 22:30 -

引用なし
パスワード
   こんばんわ。

>印刷プレビューとメッセージボックスが同じ画面に出てくるとベストです・・。

これは不可能なんとちゃうかな?
ユーザーフォームとは違って、プレビュー画面が表示されるタイミングで
別プロシージャを起動させる方法は提供されてへんからねー

素直にプレビュー画面の「印刷」ボタンを押させたほうが簡単なんとちゃいまっか?

res = MsgBox("印刷するためには次のプレビュー画面の「印刷」ボタンを押してください。")
ActiveSheet.PrintPreview

なんてので十分やと思うねんけど。
お気に召さんかったらかんにんな。
ほな。

【36377】Re:印刷プレビューで確認してから印刷す...
お礼  ぺっし  - 06/3/30(木) 8:58 -

引用なし
パスワード
   返信ありがとうございます!返事遅れてすいません・・・

印刷プレビューを表示させちゃうとVBAではどうにもならないんですね・・・。
Keinさん、bykinさんありがとうございました!


▼bykin さん:
>こんばんわ。
>
>>印刷プレビューとメッセージボックスが同じ画面に出てくるとベストです・・。
>
>これは不可能なんとちゃうかな?
>ユーザーフォームとは違って、プレビュー画面が表示されるタイミングで
>別プロシージャを起動させる方法は提供されてへんからねー
>
>素直にプレビュー画面の「印刷」ボタンを押させたほうが簡単なんとちゃいまっか?
>
>res = MsgBox("印刷するためには次のプレビュー画面の「印刷」ボタンを押してください。")
>ActiveSheet.PrintPreview
>
>なんてので十分やと思うねんけど。
>お気に召さんかったらかんにんな。
>ほな。

7869 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free