VBA to Print the Comments of a single cell

[simora]

I am trying to print the Comments of a single cell.
Also, Is there a way to copy it to another sheet and print it from there.
It would seem to be a shape at that point.
I tried the latter, but the shape does not allow you to copy it.

This bit works


Range("AE9").Select
ActiveCell.Comment.Visible = True
Range("AE9").Comment.Shape.Select True


But this bit DOES NOT WORK


Selection.Copy
Sheets("Sheet2").Range("A1").Paste

[arnelgp]

Range("AE9).Select
Selection.Copy
Sheets("Shee2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

[simora]

arnelgp: Hi Thanks.

I can copy the Comments to the other sheet; The problem is that when I try to print, the error says:
" Excel did not find anything to print "

This code does show the comments, but I cant figure out how to print them.



Sub CopyComments()
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

End Sub


How can I copy the text from a single cells' comments ?

[simora]

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.

[p45cal]

try:
Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("AE9").Comment.TextNow print Sheet2 normally.

[simora]

p45cal: THANKS !

That works great.