If you run a macro containing the following code when the document containing the comments is the active document, it will create a new document containing the author of the comment and the text of the comment separated by " - " for each of the comments
in the document. You can then print that document.
Dim Source As Document, Target As Document
Dim i As Long
Set Source = ActiveDocument 'The document containing the comments
Set Target = Documents.Add
With Source
For i = 1 To .Comments.Count
Target.range.InsertAfter .Comments(i).Author & " - " & .Comments(i).range.text & vbCr
Next
End With
or, if you add the following commands to the macro, it will print out the document that is created and then close it.
With Target
.PrintOut Background = False
.Close wdDoNotSaveChanges
End With