Excel VBA質問箱 IV

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

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


27142 / 76732 ←次へ | 前へ→

【54914】Re:beforeprintについて
発言  n  - 08/4/3(木) 21:13 -

引用なし
パスワード
   こんにちは。
なかなかレスがつかないようですね。
WithEventsでプレビュークリックを捉まえて、
[プレビュー]or[印刷]を判定すればできるかなと思ったんですが、
[ページ設定]ダイアログにも[プレビュー]がありましたね...ちょっと挫折しましたorz

...で、代案なのですが、
BeforePrintで印刷を制限して、[プレビュー]or[印刷]を自前のコマンドからでないと実行できないようにする
...という案ではだめでしょうか。

'ThisWorkbook Module
Option Explicit

Private flg As Boolean

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If Not flg Then
    Cancel = True
    MsgBox "印刷/プレビューはオリジナルメニューから"
  End If
End Sub

Sub test1()
  flg = True
  ActiveSheet.PrintPreview
  flg = False
End Sub

Sub test2()
  flg = True
  ActiveSheet.PrintOut
  flg = False
End Sub

0 hits

【54846】beforeprintについて hisao 08/4/1(火) 18:13 質問
【54914】Re:beforeprintについて n 08/4/3(木) 21:13 発言
【54941】Re:beforeprintについて hisao 08/4/5(土) 9:14 お礼
【54943】Re:beforeprintについて n 08/4/5(土) 18:31 発言
【54949】Re:beforeprintについて hisao 08/4/6(日) 17:44 お礼
【54950】Re:beforeprintについて n 08/4/6(日) 18:00 発言
【54959】Re:beforeprintについて hisao 08/4/7(月) 13:18 お礼

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