You can use the following macro:
Code:
Sub InsertCommentsInTextBody()
Dim c As Comment
For Each c In ActiveDocument.Content.Comments
c.Reference.InsertAfter "[" & c.Author & ", " _
& c.Date & ", " & c.Range.Text & "]"
Next c
End Sub
It inserts the author, date, and text of each comment immediately following the comment reference in the text. Save the document, run the macro, print the document, and then close without saving changes. If you do choose to save after printing, the inserted comments will be saved too (which you may or may not want).
For assistance with installation, see
http://www.gmayor.com/installing_macro.htm.