You could use a macro in the template to print the document, having set the
font colour to white and the graphics brightness to 100%, then reset them
back again. This is simple enough to do if the letterhead text is all black,
but if you have used multiple styles or multiple colours in the letterhead,
you are going to have to record each colour and reset it again later. The
macro below is one I posted in response to a similar query some time back.
Note that the macro only affects the header (the first page header if it
exists). If you want to hide headers on other pages or footers, you will
have to treat them separately.
Sub PrintLetter()
Dim oHeader As Range
Dim i As Long
If ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Exists Then
Set oHeader =
ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range
Else
Set oHeader =
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
End If
With oHeader
.Font.Color = wdColorWhite
For i = .ShapeRange.Count To 1 Step -1
If .ShapeRange(i).Type = msoAutoShape Then
.ShapeRange(i).Fill.Visible = msoFalse
Else
.ShapeRange(i).PictureFormat.Brightness = 1#
End If
Next i
For i = .InlineShapes.Count To 1 Step -1
.InlineShapes(i).PictureFormat.Brightness = 1#
Next i
End With
ActiveDocument.PrintOut
With oHeader
.Font.Color = wdColorAutomatic
For i = .ShapeRange.Count To 1 Step -1
If .ShapeRange(i).Type = msoAutoShape Then
.ShapeRange(i).Fill.Visible = msoTrue
Else
.ShapeRange(i).PictureFormat.Brightness = 0.5
End If
Next i
For i = .InlineShapes.Count To 1 Step -1
.InlineShapes(i).PictureFormat.Brightness = 0.5
Next i
End With
End Sub
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>