|
▼n さん:
お返事大変有り難うございました。
やはり 印刷とプレビューを分けるしか方法が無いでしょうね
一旦プレビューを出して、プレビュー・ダイアログで印刷かキャンセルか選択してキャンセルの場合はある操作を取り消したいと言う希望が有ったものですから困りました。
クラス・モジュールかなんかで、プレビューのダイアログの”閉じる”イベントで
マクロ実行する方法が有れば有り難いのですが。
>こんにちは。
>なかなかレスがつかないようですね。
>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
|
|