Here's my repost!

This is a slightly modified repost of a question I posted earlier in this
group.
I really hope someone helps me out!

I've been writing a macro including a UserForm, in order to be able to print
(one or more) documents either with or without markup (comments or revisions)
showing, or as shown on screen, depending on the value of a checkbox.

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 for these same
documents, although the balloons still do show on screen.

Part of the code I wrote (part of a loop for each selected document; name of
the checkbox = CheckMarkup):

***
With Documents(...)      'the particular open document
  If CheckMarkup.Value = True Then  'print with markup showing
     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 'no markup
     PrintMarkup = wdPrintDocumentContent

  ElseIf IsNull(CheckMarkup.Value) = True Then 'triplestate enabled; print
as shown
     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
***

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. When I
applied menu choices View > Markup I was really astonished to find the
statement WordBasic.ViewChanges being recorded.
And as astonished to find WordBasic.ShowComments for changing the
Show-option for comments (on the Reviewing toolbar).
I couldn't find 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