Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
[email protected] a.fawcett@bridgelegal.com.au is offline
external usenet poster
 
Posts: 10
Default Macro help - how to print a watermark on all pages!

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(PowerP lusWaterMarkObject1,
_
"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("PowerPlusWaterMarkO bject1").Select
Selection.Delete
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

  #2   Report Post  
Posted to microsoft.public.word.docmanagement
[email protected] a.fawcett@bridgelegal.com.au is offline
external usenet poster
 
Posts: 10
Default Macro help - how to print a watermark on all pages!

Anyone? I really would apperciate any help.

  #3   Report Post  
Posted to microsoft.public.word.docmanagement
Suzanne S. Barnhill Suzanne S. Barnhill is offline
external usenet poster
 
Posts: 33,624
Default Macro help - how to print a watermark on all pages!

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
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

wrote in message
ups.com...
Anyone? I really would apperciate any help.


  #4   Report Post  
Posted to microsoft.public.word.docmanagement
[email protected] a.fawcett@bridgelegal.com.au is offline
external usenet poster
 
Posts: 10
Default Macro help - how to print a watermark on all pages!


Suzanne S. Barnhill wrote:

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.

  #5   Report Post  
Posted to microsoft.public.word.docmanagement
Suzanne S. Barnhill Suzanne S. Barnhill is offline
external usenet poster
 
Posts: 33,624
Default Macro help - how to print a watermark on all pages!

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
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

wrote in message
ups.com...

Suzanne S. Barnhill wrote:

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.




  #6   Report Post  
Posted to microsoft.public.word.docmanagement
Annabel Hurdman Annabel Hurdman is offline
external usenet poster
 
Posts: 3
Default Macro help - how to print a watermark on all pages!

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.

"Suzanne S. Barnhill" wrote in message
...
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
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup
so
all may benefit.

wrote in message
ups.com...

Suzanne S. Barnhill wrote:

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.




Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Using Word 2003 can't print anything with 2 pages or more? Maureen Microsoft Word Help 26 April 24th 08 08:48 PM
How to print odd pages in a mail merge Mail Merge odd page printing Microsoft Word Help 1 April 27th 06 09:38 PM
Help needed w/booklet-printing macro, round 2 David Nebenzahl Page Layout 5 March 14th 06 06:19 AM
DRAFT watermark printing DAT on even pages, RF on odd pages? Traceroo Page Layout 1 October 5th 05 10:07 PM
Word 2003 Mail Merge will not print individual pages or Ranges Rick Mailmerge 4 July 29th 05 05:07 AM


All times are GMT +1. The time now is 07:34 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"