VBA - Print Worksheets with Comments
Sub PrintWorksheetsWithComments()
'Display all comments
Application.DisplayCommentIndicator = xlCommentAndIndicator
With ActiveSheet
'As displayed on sheet
.PageSetup.PrintComments = xlPrintInPlace
'Print the active sheet
.PrintOut
End With
End Sub