viewing track changes balloons but not print them

[frogman]

I am using office xp (2002) word.

I want to find the option control that shows the balloons
code:

Sub QCPrint()
Call Draft

'set markup defaults
With Options
.InsertedTextColor = wdRed
.InsertedTextMark = wdInsertedTextMarkDoubleUnderline
.RevisedPropertiesColor = wdBlue
.RevisedPropertiesMark = wdRevisedPropertiesMarkStrikeThrough
.DeletedTextColor = wdBlue
.DeletedTextMark = wdDeletedTextMarkStrikeThrough
.RevisedPropertiesColor = wdBlue
.RevisedPropertiesMark = wdRevisedPropertiesMarkStrikeThrough
.PrintComments = True ' want to show comment balloons
End With

Dim blnPrintHiddenTextChecked As Boolean
'Application.ScreenUpdating = False
ActiveWindow.ActivePane.View.ShowAll = True
ActiveWindow.View.FieldShading = wdFieldShadingAlways

'set the flags of how the user has word set up
If Options.PrintHiddenText = True Then
blnPrintHiddenTextChecked = True
Else
blnPrintHiddenTextChecked = False
End If
'set the print options
With Options
.DefaultTray = "Use printer settings"
.PrintBackground = True
.PrintHiddenText = True
.PrintDrawingObjects = True
.MapPaperSize = True
.PrintComments = False ' shut off balloons for print
End With

'show the print dialog box
On Error Resume Next

With ActiveWindow.View
.ShowRevisionsAndComments = True
.RevisionsView = wdRevisionsViewFinal + wdRevisionsViewOriginal
End With

Application.Dialogs(wdDialogFilePrint).Show
'set the state of Word back the the way the user had it before
print.
If blnPrintHiddenTextChecked = True Then
Options.PrintHiddenText = True
Else
Options.PrintHiddenText = False
End If

With Options
.InsertedTextColor = wdRed
.InsertedTextMark = wdInsertedTextMarkDoubleUnderline
.RevisedPropertiesColor = wdBlue
.RevisedPropertiesMark = wdRevisedPropertiesMarkStrikeThrough
.DeletedTextColor = wdBlue
.DeletedTextMark = wdDeletedTextMarkStrikeThrough
.RevisedPropertiesColor = wdBlue
.RevisedPropertiesMark = wdRevisedPropertiesMarkStrikeThrough
.PrintComments = True ' want to show comment balloons again
End With

ActiveWindow.ActivePane.View.ShowAll = False
Application.ScreenUpdating = True
ActiveDocument.TrackRevisions = True
ActiveDocument.ShowRevisions = True
Selection.Find.Replacement.ClearFormatting
Selection.Find.ClearFormatting

End Sub

 

[frogman]

ActiveWindow.View.RevisionsMode = wdInLineRevisions
ActiveWindow.View.RevisionsMode = wdBalloonRevisions