Emailing specific Report from a Form

[Sonny Jim]

How do I modify my vba code (below) to E-mail the report record I am viewing on my Form?

Here is my code:

Private Sub cmdMailAdvOfSttlmnt_Click()
On Error GoTo Err_cmdMailAdvOfSttlmnt_Click

Dim stDocName As String

stDocName = "rptAdvOfSttlmnt"
DoCmd.SendObject acReport, stDocName

Exit_cmdMailAdvOfSttlmnt_Click:
Exit Sub

Err_cmdMailAdvOfSttlmnt_Click:
MsgBox Err.Description
Resume Exit_cmdMailAdvOfSttlmnt_Click

End Sub

 

[Moniker]

Have a look here.