Jean-Guy
Wed Apr 26 15:15:32 CDT 2006
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
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site:
http://www.word.mvps.org