Save Report As PDF - Adding Date Retrieved From Query As Part Of File Name

I'm trying to save a report to my Desktop as a pdf - adding a date {that I am retrieving from a query} as part of the pdf file name.

I get a
Run-time error '2501' - The OutputTo action was cancelled.
(See screenshot).

Here's the code I'm using. So far - all I've tried to do is run the function from the Visual Basic Editor.

Function SaveReport()
Dim strSQL As String
Dim strPath As String
Dim strFilename As String
'Get the ReportDate.

[Code] .....