Display and Print Excel Worksheets with Comments

Display and Print Excel Worksheets with Comments

Sub PrintWorksheetsWithComments()
    Dim sh As Worksheet
    'Display all comments
     Application.DisplayCommentIndicator = xlCommentAndIndicator
    Set sh = ActiveSheet
    sh.PageSetup.PrintComments = xlPrintInPlace
    sh.PrintOut
End Sub

PrintOut Syntax
expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)