“VBA - Imprimir hojas de trabajo con comentarios” Código de respuesta

VBA - Imprimir hojas de trabajo con comentarios

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