[Yunus]

I have a business letter head which we use for quotations. The quotes are sent out by email with the header and footer included. However, we print onto headed paper and would like the option to print without including the header and footer. I found the following code to create a macro from a previous thread:

Sub PrintDocWithoutHeaderFooter()
Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidd en = True
s.Headers(wdHeaderFooterFirstPage).Range.Font.Hidd en = True
s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = True

s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidd en = True
s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidd en = True
s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = True
Next s

Options.PrintHiddenText = False

Dialogs(wdDialogFilePrint).Show

For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidd en = False
s.Headers(wdHeaderFooterFirstPage).Range.Font.Hidd en = False
s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = False

s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidd en = False
s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidd en = False
s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = False

Next s

End Sub

This works, however not only does it remove the header and footer but it also removes the spacing where the header and footer would have been. So if i print onto the headed paper then the text is printed over the headers and footers.

How can i modify the above coding to include this spacing? By the way, the first page has a different header & footer to the other pages and the last page has a different footer to the other pages.

Many thanks in advance for any help.

[Stefan Blom[_3_]]

One possibility is put the text in a text box (in the header and footer) and
then hide the text (but not the text box).

--
Stefan Blom
Microsoft Word MVP




"Yunus" wrote in message
...

I have a business letter head which we use for quotations. The quotes
are sent out by email with the header and footer included. However, we
print onto headed paper and would like the option to print without
including the header and footer. I found the following code to create a
macro from a previous thread:

Sub PrintDocWithoutHeaderFooter()
Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidd en = True
s.Headers(wdHeaderFooterFirstPage).Range.Font.Hidd en = True
s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = True

s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidd en = True
s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidd en = True
s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = True
Next s

Options.PrintHiddenText = False

Dialogs(wdDialogFilePrint).Show

For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidd en = False
s.Headers(wdHeaderFooterFirstPage).Range.Font.Hidd en = False
s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = False

s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidd en = False
s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidd en = False
s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = False

Next s

End Sub

This works, however not only does it remove the header and footer but it
also removes the spacing where the header and footer would have been. So
if i print onto the headed paper then the text is printed over the
headers and footers.

How can i modify the above coding to include this spacing? By the way,
the first page has a different header & footer to the other pages and
the last page has a different footer to the other pages.

Many thanks in advance for any help.




--
Yunus

[Yunus]

Thanks for the reply but I don't think that will work because the header/footers are images. Any other suggestions?

[Stefan Blom[_3_]]

Use a macro to replace the image with a shape of the same size (solid white
background, no borders).

--
Stefan Blom
Microsoft Word MVP




"Yunus" wrote in message
...

Thanks for the reply but I don't think that will work because the
header/footers are images. Any other suggestions?




--
Yunus