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

シートを印刷した時に、
このシートはすでに印刷済みだという、
”マーク・印鑑”見たいな物を
シートに貼付けしたいのですが、
マクロで作成することができますか？
教えてください。

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

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

ではどうでしょうか？

この回答への補足

回答ありがとうございます。
教えていただいた通りにやってみましたが、
印刷する際
Thisworkbookモジュールの
Private Sub Workbook_BeforePrint(Cancel As Boolean)
にエラーが出て印刷できません。
どうしたらよいのでしょうか。

補足日時：2008/11/10 11:48

この回答へのお礼

先ほど回答の補足をしましたが、
うまく行くようになりました。
ありがとうございました。

お礼日時：2008/11/10 11:57