Printing without or with markup (Word 2002 SP3)

P

Peter_A_M (NL)

Hello out there,
I've been writing a macro including a UserForm.
Depending on the value of a checkbox (one or more) documents should be
printed either with or without markup showing, or as shown on screen.

Part of the code I wrote (name of the checkbox = CheckMarkup):

With Documents(...) 'the particular open document
If CheckMarkup = True Then
With .ActiveWindow.View
If .RevisionsMode <> wdBalloonRevisions Then _
.RevisionsMode = wdBalloonRevisions
'always show revisions as balloons

.ShowRevisionsAndComments = True
.ShowFormatChanges = True
.ShowInsertionsAndDeletions = True
End With
PrintMarkup = wdPrintDocumentWithMarkup
'variable to be used later with PrintOut command

ElseIf CheckMarkup.Value = False Then
PrintMarkup = wdPrintDocumentContent

ElseIf IsNull(CheckMarkup.Value) = True Then
If (.Revisions.Count = 0 And .Comments.Count = 0) Then
'no revisions, no comments present
PrintMarkup = wdPrintDocumentContent

ElseIf .ActiveWindow.View.ShowRevisionsAndComments = False And _
.ActiveWindow.View.ShowFormatChanges = False And _
.ActiveWindow.View.ShowInsertionsAndDeletions = False Then
'no markup visible
PrintMarkup = wdPrintDocumentContent

Else 'markup visible
PrintMarkup = wdPrintDocumentWithMarkup

End If
End If

.PrintOut Item:=PrintMarkup 'print the relevant way

'... (restoring the Show... properties when necessary)

End With

My question: this works well in the beginning. But: after having printed one
or more documents without markup, and thereafter the same document(s) 'as
shown' or with markup, no balloons are printed anymore, although they do
show on screen.

Does anyone know what is happening?
As far as I'm aware of I'm using the right properties, or do I miss one or
more?

Moreover: in order to check what happens I recorded some macros. I was
really astonished to find the statement WordBasic.ViewChanges for menu
choices View > Markup.
And as astonished to find WordBasic.ShowComments for changing (on the
Reviewing toolbar) the Show-option for comments.
I couldn't any documentation on this nor were these statements present in
Word95 or Word97.
Can anyone explain this to me?

Thanks in advance for any advice!
Peter
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top