It is not possible to save such requirements in the document. You may be
able to achieve what you want with a macro e.g. The following will save the
document without a watermark, print it on the current printer, add the
watermark, print it on the black and white printer, restore the original
printer then close the document without saving , thus no watermark in the
stored copy. You would need a second printer driver set up to print in black
and white to use this method. The name you have for that printer should be
inserted where indicated.
Dim sPrinter As String
sPrinter = ActivePrinter
With ActiveDocument
.Save
.PrintOut
.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
With Selection
.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject1, _
"FILE COPY", "Times New Roman", 1, False, False, 0, 0).Select
With .ShapeRange
.TextEffect.Text = "FILE COPY"
.TextEffect.FontSize = 1
.TextEffect.FontName = "Times New Roman"
.Line.Visible = False
.Fill.Visible = True
.Fill.Solid
.Fill.ForeColor.RGB = RGB(192, 192, 192)
.Fill.Transparency = 0.5
.Rotation = 315
.LockAspectRatio = True
.Height = CentimetersToPoints(4.77)
.Width = CentimetersToPoints(15.89)
.WrapFormat.AllowOverlap = True
.WrapFormat.Side = wdWrapNone
.WrapFormat.Type = 3
.RelativeHorizontalPosition = _
wdRelativeVerticalPositionMargin
.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
.Left = wdShapeCenter
.Top = wdShapeCenter
End With
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActivePrinter = "B&W Printer Name"
.PrintOut
ActivePrinter = sPrinter
.Close savechanges = wdDoNotSaveChanges
End With
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
