Macro help - how to print a watermark on all pages!

[a.fawcett]

I am having so much trouble trying to create a macro to print a
watermark on all pages. If the document is only one page it's fine but
one of our documents is 4 pages. When I print this using the macro it
prints "copy" on the first page, removes the header and footer for the
second page and stamps "copy" on that, and then leaves the header and
footers alone on pages 3 and 4 but does not stamp copy on those last 2
pages!

I just cannot work it out. Please help! Here is my macro code:

Sub PrintCopy()
'
' PrintCopy Macro
' Macro recorded 20/07/2006 by AFawcett
'
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(0.68)
.BottomMargin = CentimetersToPoints(2.5)
.LeftMargin = CentimetersToPoints(3.1)
.RightMargin = CentimetersToPoints(3.1)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(0.5)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21.59)
.PageHeight = CentimetersToPoints(27.94)
.FirstPageTray = wdPrinterUpperBin
.OtherPagesTray = wdPrinterUpperBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = True
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
ActiveDocument.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject1,
_
"DRAFT", "Times New Roman", 1, False, False, 0, 0).Select
Selection.ShapeRange.Name = "PowerPlusWaterMarkObject1"
Selection.ShapeRange.TextEffect.NormalizedHeight = False
Selection.ShapeRange.Line.Visible = False
Selection.ShapeRange.Fill.Visible = True
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192)
Selection.ShapeRange.Fill.Transparency = 0
Selection.ShapeRange.Rotation = 315
Selection.ShapeRange.LockAspectRatio = True
Selection.ShapeRange.Height = CentimetersToPoints(6.2)
Selection.ShapeRange.Width = CentimetersToPoints(15.5)
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapNone
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Application.PrintOut FileName:="", Range:=wdPrintAllDocument,
Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActiveDocument.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes("PowerPlusWaterMarkObject1").Select
Selection.Delete
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

 

[a.fawcett]

Anyone? I really would apperciate any help.

 

[Suzanne S. Barnhill]

You don't need a macro. You just need to insert the watermark as a graphic
(Behind Text) anchored to the header paragraph. In Word 2002 or 2003, you
can use Format | Background | Printed Watermark.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[a.fawcett]

You don't need a macro. You just need to insert the watermark as a graphic
(Behind Text) anchored to the header paragraph. In Word 2002 or 2003, you
can use Format | Background | Printed Watermark.

That's a bit useless isn't it? The whole point of a watermarked macro
is so that you only have to click one button, not fifteen to get what
you want. We are in a legal office so the quicker we can do our
documents the better.

 

[Suzanne S. Barnhill]

You should be using templates that have the watermark already in place. In
any case, it should be possible to RECORD a macro to do the required steps
(which I seriously doubt is as many as 15 even if you're using a picture).
Since it appears from your other posting that you just want COPY, I make it
five clicks.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Annabel Hurdman]

I was looking for a quicker method too and found these utilities
http://www.cdev.co.uk/utils.htm

One of them is inserting a watermark - click the button and then choose from
a list of text.