Excel VBA質問箱 IV

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

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


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

【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 さん、ありがとうございます!助かりました!!

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

自分の不甲斐なさを反省しつつ・・・もっと勉強します。

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