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

A

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
 
S

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.
 
A

a.fawcett

Suzanne said:
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.
 
S

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top