“VBA - Wydrukuj arkusze z komentarzami” Kod odpowiedzi

VBA - Wydrukuj arkusze z komentarzami

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