Macro stampa Excel commenti

[mrjoeseme]

Ho creato una cartella di Excel con molti commenti e vorrei inserire un tasto stampa con commenti alla fine del foglio
Potete aiutarmi?

[Anthony47]

Ciao mrjoeseme, benvenuto nel forum.
Inserisci questa macro e poi associala a un pulsante:

Codice: Seleziona tutto

Sub WithComm()
'Vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=104558
'scegli printer
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    GoTo Esci
End If

    Application.PrintCommunication = True
    Application.DisplayCommentIndicator = xlCommentAndIndicator
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Prova e fai sapere...