Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4265 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4265 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free