Print document without comments by default

[chaitov]

I use Word to take notes in my college classes, and I sometimes insert
comments during class to remind myself that I missed a point or that I had a
question about something. When I print my notes, though, I'd prefer not to
print the comments (especially since it then shrinks the entire document and
makes it harder to read, but also because I don't need to see them on printed
versions). I know how to manually change the option so that it won't print
the comments, but is there a way to change the default so that it NEVER tries
to print the comments unless I ask? I'd be happy with a macro that does
this, but my experience with them is limited and I don't know how to go about
doing that.

 

[Jean-Guy Marcil]

chaitov was telling us:
chaitov nous racontait que :

I use Word to take notes in my college classes, and I sometimes insert
comments during class to remind myself that I missed a point or that
I had a question about something. When I print my notes, though, I'd
prefer not to print the comments (especially since it then shrinks
the entire document and makes it harder to read, but also because I
don't need to see them on printed versions). I know how to manually
change the option so that it won't print the comments, but is there a
way to change the default so that it NEVER tries to print the
comments unless I ask? I'd be happy with a macro that does this, but
my experience with them is limited and I don't know how to go about
doing that.

Without a macro, you could simply change the view.

In the reviewing toolbar, prior to printing, change the view from
Final Showing Mark-up
to
Final

Or, if you absolutely want a macro, try intercepting the print commands (do
not change the name of the subs):
Put these macro in your Normal.dot
(note that comments will never be printed... )

'_______________________________________
Sub FilePrint()

ChangePrintDefault False

End Sub
'_______________________________________

'_______________________________________
Sub FilePrintDefault()

ChangePrintDefault True

End Sub
'_______________________________________

'_______________________________________
Sub ChangePrintDefault(myPrintAll As Boolean)

Dim myView As Boolean

'Preserve user view
myView = ActiveWindow.View.ShowRevisionsAndComments

If myPrintAll Then
ActiveDocument.PrintOut Item:=wdPrintDocumentContent
Else
'Hide comments
ActiveWindow.View.ShowRevisionsAndComments = False
'Call print dialog
Dialogs(wdDialogFilePrint).Show
'Reset user view
ActiveWindow.View.ShowRevisionsAndComments = myView
End If

End Sub
'_______________________________________

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org