WordArt Auto Date Possible?

[Oz82]

::Would help out SO much!::

I'm printing a form for a daily log that people actually write on.
Currently, since all space is taken up by the blanks, they are writing
the date in the margins. I would love to have a watermarked WordArt
date automatically appear whenever it's printed.

If anyone knows how to do this, I'll send them a nice cigar or two!

Thanks!

 

[L. Howard Kittle]

Hi Oz82,

From the macro recorder with small modification and pasted in BeforePrint
event.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Date
i = Now()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, i, _
"Arial Black", 18#, msoFalse, msoFalse, 91.75, 196.5).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Transparency = 0.26
Selection.ShapeRange.IncrementRotation -34.79
Range("A1").Select
End Sub

HTH
Regards,
Howard