Issues with Macro to Print selected Area

Hello,

Nice to be part of this forum, it seems very helpful.

I created this macro to send and email and it worked perfect. Now I am trying to add the sub to print the rage selected and is not working. The email part still works though but it is not printing. Any help is appreciated.

Thanks!

Sub Button12_Click()

' When user hits Email to Assoc and Print Macro, Send Email and Print()

ActiveSheet.Range("A1:U65").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = Cells(3, 1)
.Item.cc = Cells(6, 1)
.Item.Subject = "FCS Associate Profile- One-on-One - Coaching Date:" & Cells(64, 12)
.Item.Send
End With

End Sub

Private Sub PrintSomeCells()

ActiveSheet.Range("A1:U65").Select

ActiveSheet.PageSetup.PrintArea = "A1:U65"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub

Hi and welcome to the forum. Unfortunately your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)