|
こんにちは。
なかなかレスがつかないようですね。
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
|
|