|
早速の返信ありがとうございます!
う〜ん、メッセージボックスを前に表示させてもいいんですが、
印刷プレビューとメッセージボックスが同じ画面に出てくるとベストです・・。
印刷プレビュー画面で印刷ボタンを押してしまった場合、
印刷プレビュー → 印刷 → 印刷プレビュー画面閉じる →
メッセージボックス → 印刷
になってしまうので。
できれば
印刷プレビュー → メッセージボックス → 印刷 → 印刷プレビュー終了
としたいんです。
SendKeys "{ESC}"で印刷プレビュー終了を試してみたんですが、
印刷プレビューが立ち上がると
VBAの操作が出来なくなってしまうんですかね・・・
▼Kein さん:
> MsgBox "次のプレビュー画面で印刷状態をチェックして下さい", 64
> ActiveSheet.PrintPreview
> res = MsgBox("印刷してもよろしいですか?",vbOKCancel)
> If res=vbOK then
> Activesheet.PrintOut
> Else
> Exit sub
> End If
>
>というように、プレビューの前後にメッセージすることでカバーできませんか ?
|
|