セルに印刷日時を残したい

セルに印刷日時を残したいですが、どのようにすれば残せますでしょうか。

＊エクセル2013を使用しています。
＊クイックアクセスバーにクイック印刷のボタンを出してそこから印刷しています。
＊印刷度に更新ではなく、印刷度に下部セルへ記載したい。（Q２以下）
＊印刷範囲内に表示ではなく、印刷範囲外に残したい（Qは範囲外です）。

Worksheet_BeforePrintで設定するのか標準モジュールでPrintOutを判別するのか・・・
等の考えはあるのですが、BeforePrintで単純にQ2にNow()としても反応していない現状です。

ご教授のほどよろしくお願い致します。

No.3 ベストアンサー 回答者： kigoshi 回答日時： 2014/03/13 12:33

たぶん、Cancel As Boolean　を書いていないのが原因かと。

この回答への補足

連絡が遅くなり申し分けありません。無事動きました。

＊印刷度に更新ではなく、印刷度に下部セルへ記載したい
こちらの部分はどのようになるのでしょうか？
if cells(2,17)=""then
cells(2,17)=Now()
else
???
end if
として???の部分に
空白時はQ2に現時刻を、空白でない時はQ3へ、Q3も埋まっていればQ4へと「Range("Q2").End(xlDown).Offset(1, 0)」みたいな形で入れるのでしょうか？

今一度お力をお貸しください。

補足日時：2014/03/14 20:29

この回答へのお礼

プリントで行うといちいち印刷してしまうので保存で動かしてみ見たところ、下記のコードで自己解決じました。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Cells(2, 17) = "" Then
Cells(2, 17).Value = Now()
Else
Cells(Rows.Count, 17).End(xlUp).Offset(1, 0) = Now()
End If
End Sub
ご協力ありがとうございました。

お礼日時：2014/03/16 09:31

No.2 回答者： kigoshi 回答日時： 2014/03/13 11:41

BeforePrintでの場合、コードはどこに書かれてますか？

各シートに書いているのでしたら、ThisWorkbookに書くとうまくいくと思いますが。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cells(2, 17).Value = Now()
End Sub

この回答への補足

ThisWorkbookにPrivate Sub Workbook_BeforePrint()
Cells(2, 17)= Now()
End Sub
と記載していたのですが印刷時に動いていませんでした。
.valueを省略していたのが原因でしょうか？

補足日時：2014/03/13 11:59

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2014/03/14 20:30

No.1 回答者： dondoko4 回答日時： 2014/03/13 10:57

プリンター側で設定します。

この回答への補足

プリンター側で設定してエクセルのセルに印刷日時を表示できる方法が有るのでしょうか？
初耳でビックリです。
是非詳しい方法をご教授願います。

補足日時：2014/03/13 11:32

この回答へのお礼

回答ありがとうございます。
今後は具体的な方法を記載して頂きますようお願い致します。

お礼日時：2014/03/16 09:32