This will get the Comments of a single cell for printing. It's NOT Text, but an image.
Sub CopyACellComments()
ActiveSheet.Range("AE9").Select
ActiveSheet.Range("AE9").Comment.Visible = True
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintInPlace
.PrintQuality = 600
.PrintErrors = xlPrintErrorsDisplayed
.FirstPage.RightFooter.Text = ""
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
If there's a way to get comments from a single cell as Text, I'll like to know.