Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12737 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8917】印刷前イベントでプレビューの時は何もし... のり 03/11/8(土) 11:38 質問
【8920】Re:印刷前イベントでプレビューの時は何もし... kein 03/11/8(土) 22:20 回答
【8931】なるほど！そうですよね。 のり 03/11/10(月) 13:36 お礼
【8917】印刷前イベントでプレビューの時は何もし...
質問  のり  - 03/11/8(土) 11:38 -
引用なし
パスワード
   こんにちは。
Excelで困った時にはココに来ると必ず解決するので
今回もお邪魔してしまいました。

Excel2000で、Workbook_BeforePrintでモジュールを作っています。

ツールボタンの印刷　もしくは　ファイル→印刷　を選んだ場合は、
作成したモジュールを実行して
印刷プレビューボタン　もしくは　ファイル→印刷プレビュー　を選んだ場合は
モジュールを実行しないで、通常通り印刷プレビュー画面を表示したいのです。

ご指導よろしくお願いします！
【8920】Re:印刷前イベントでプレビューの時は何も...
回答  kein  - 03/11/8(土) 22:20 -
引用なし
パスワード
   イベントマクロにしないで、普通のマクロで切り替えた方が良いかと思いますが、
どうしてもということなら

Private Sub Workbook_BeforePrint(Cancel As Boolean)
　 Dim Ans As Integer

　 Ans = MsgBox("プレビューのみにしますか", 36)
　 If Ans = 6 Then
　　　Cance = True
　　　ActiveSheet.PrintPreview
　　　Exit Sub
　 End If
　 '印刷を実行することを前提としたコード
End Sub

みたいにするしかないでしょう。要はプレビューをトリガーにするイベントが
無いので、印刷ボタンを押したときだけ、プレビューにも分岐できるように
したらどうか、ということなんです。
【8931】なるほど！そうですよね。
お礼  のり  - 03/11/10(月) 13:36 -
引用なし
パスワード
   kein さん、ありがとうございます！助かりました！！

「なるほど！その手がありましたか！！」と感動しました。

自分の不甲斐なさを反省しつつ・・・もっと勉強します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12737 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free