Workbook_BeforePrintイベントが機能しない

Question

シートのヘッダー（および/またはフッター）に一部のデータを動的に設定する必要があります。

いくつかのフォーラムから、私はそれを行う方法を示す数多くの例を見つけました。それらはすべて、何の問題もなく簡単に理解できるようです。
は、だから、私はこのような単純な試みに読んだもの適用：

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    ActiveSheet.PageSetup.CenterFooter = Range("A1") 
End Sub 

しかし、それは単に動作しない：何も私のシートのプレビューに表示されません。

はところでドキュメンテーションの唯一のあいまいな点は、使用するデータの表現についてだったので、私はまた、成功せず、その後、Range("A1").Valueにより、Range("A1").TextによってRange("A1")を交換してみました。

私はそれはそれは.centerfooterだ、機能していませんbeforeprintではありません

Answer 1

他の回答が既に示唆されているように、コードは問題なく、問題はありませんでした。実際、問題は呼び出されなかったという事実から来ました。

これは愚かな状況から来た：デザインモードが有効になった！

デザインモードを無効にすると、すべて正常に動作します。

Answer 2

...私はいくつかの簡単なポイントを逃していたとします。代わりに試してみてください：

ActiveSheet.PageSetup.CenterFooter = CStr(Cells(1, 1)) 

Documentation明示的stringを求めて、私はそれが明示的にそれが既にセル内の文字列の場合でもstringとして、それを必要とする理由はわかりません。

Answer 3

あなたのコードは私のために働いていました。また、デバッグ用に余分な行を追加してコードをテストしました。

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    Debug.Print "Running Workbook_BeforePrint" 
    ActiveSheet.PageSetup.CenterFooter = Range("A1") 
    Cancel = True 
End Sub 

印刷する前に、フッターが空でした。印刷後、プレビューに一致するA1と「実行中のブックブックプリント」のフッターがイミディエイトウィンドウに表示されます。