Reports :: Include Name Of PDF In Actual Report

I am creating a PDF version of a Report so that I can send it as an attachment. I use the following code to do this:

Private Sub EmailWorkOrderQuote_Click()
On Error GoTo Err_EmailWorkOrderQuote_Click

Dim stDocName As String
Dim mFilename As String
Dim mEmailAddress As Variant
Dim mCompanyName As String

[Code] .....

I first create the report with a specifically generated name and save it to a folder.

I then do a SendObject to send the actual email. Unfortunately, it generates its own name for the file that it attaches and I don't think it is possible to specify an attachment.

Anyway, how to include the name of the PDF report in the actual report preferably in the footer.