Print document without footnotes

[laralea]

User wants to print the document without the footnotes and I can't find any
information on how to do it. (Hoping this doesn't turn out to be a Duh!
moment) Office 2003, Windows XP

Thanks!

 

[Pranav Vaidya]

Hi,

Please check out these-

http://wordtips.vitalnews.com/Pages/T1564_Printing_without_Footnotes.html

HTH,

 

[laralea]

Thank you very much! I wonder why google search didn't find that... o well...

 

[Greg Maxey]

I think I would use hidden text. That way the document retains the normal
layout:

Sub PrintWithoutFootnotes()
Dim i As Long
Dim j As Long
Dim lngUserOption As Long
i = ActiveDocument.Footnotes.Count
ActiveDocument.Styles("Footnote Reference").Font.Hidden = True
For j = i To 1 Step -1
ActiveDocument.Footnotes(j).Reference.Footnotes.Separator.Font.Hidden =
True
ActiveDocument.Footnotes(j).Range.Font.Hidden = True
Next j
ActiveDocument.PrintOut
For j = i To 1 Step -1
ActiveDocument.Footnotes(j).Reference.Footnotes.Separator.Font.Hidden =
False
ActiveDocument.Footnotes(j).Range.Font.Hidden = False
Next j
ActiveDocument.Styles("Footnote Reference").Font.Hidden = False
End Sub