マクロを使って、シート印刷完了時にシートに”完了”マークをつけたいのですが 追加質問

先ほど

Thisworkbookモジュールに

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.OnTime Now, "STAMP"
End Sub

標準モジュールに

Sub STAMP()

With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 50, 50)

.Fill.Visible = msoFalse
.Line.Visible = msoFalse

With .TextFrame
.Characters.Font.Name = "MS UI Gothic"
.Characters.Font.Size = 48
.Characters.Font.ColorIndex = 8
.AutoSize = True
.Characters.Text = "プリント済"
End With

End With

End Sub

と教えてもらったのですが。

.Characters.Text = "プリント済"の場所に

印刷日の日付も同時に表示したいのですが。

どのようにしたらよいのでしょうか。

教えてください。

宜しくお願いします。

No.1 ベストアンサー 回答者： onlyrom 回答日時： 2008/11/10 16:10

　

質問の部分だけであれば、
関数ＤＡＴＥを使うことで実現できます。

「プリント済」の次の行に印刷日を表示する場合

.Characters.Text = "プリント済　" & vbLf & Date
　
以上。

この回答へのお礼

ありがとうございました。

お礼日時：2008/11/10 17:00