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