Excel VBA質問箱 IV

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

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


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

【57612】印刷する前に警告文字 みる 08/9/5(金) 6:48 質問[未読]
【57615】Re:印刷する前に警告文字 Abebobo 08/9/5(金) 8:42 発言[未読]

【57612】印刷する前に警告文字
質問  みる  - 08/9/5(金) 6:48 -

引用なし
パスワード
   こんにちわ。
印刷ボタンを押したときに、「本当に印刷していいですか」などと
警告文字をだしたいのですが、かのうでしょうか?
可能でしたら教えて下さい

【57615】Re:印刷する前に警告文字
発言  Abebobo  - 08/9/5(金) 8:42 -

引用なし
パスワード
   みる さん おはようございます。
書くところ解りますか?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Ans  As Long
Ans = MsgBox("本当に印刷していいですか?", vbOKCancel)
If Ans = 2 Then
 Cancel = True
End If
End Sub

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