Export report to PDF with automatic naming

[Monoceros]

Hello,

I want to automatically save a report to a pdf with automatic naming by clicking a button:
- report name : rptTest
- name of the pdf-file : number-initials-date.pdf (e.g 2156598-SRU-20171222.pdf)

I am getting the error message "The action or method requires a Report Name argument."
What am i doing wrong?

I used the following code :

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click


Dim Number As String
Dim Initials As String
Dim Date As String
Dim Filename As String
Dim Path As String

Number= Me.Number.Value
Initials = Me.Initials.Value
Date = Year(Now()) & "" & Month(Now()) & "" & Day(Now())
Filename = Number & "-" & Initials & "-" & Date & ".pdf"
Path = "D:\Documents\Projecten\Database" & Filename


DoCmd.OpenReport rptTest, acPreview
DoCmd.OutputTo acOutputReport, "rptTest", acFormatPDF, Path, True


Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click

End Sub

[orange]

Is "rptTest" the name of your report?

[Monoceros]

Yes : rptTest but without the quotes

[orange]

DoCmd.OpenReport rptTest, acPreview
    DoCmd.OutputTo acOutputReport, "rptTest", acFormatPDF, Path, True

In these lines, rptTest seems to be an un-dimmed variable;
"rptTest" is the literal string, name of your report.

[Monoceros]

Not sure I understand you : I changed it to the following code, but I keep getting the same error message.

Dim Number As String
Dim Initials As String
Dim Date As String
Dim Filename As String
Dim Path As String
Dim Report As String

Number= Me.Number.Value
Initials = Me.Initials.Value
Date = Year(Now()) & "" & Month(Now()) & "" & Day(Now())
Filename = Number & "-" & Initials & "-" & Dats & ".pdf"
Path = "D:\Documents\Projecten\Database" & Filename
Report = "rptTest"

DoCmd.OpenReport rptTest, acPreview

DoCmd.OutputTo acOutputReport, "Report", acFormatPDF, "Path", True

[orange]

Try (untested)
DoCmd.OpenReport "rptTest", acPreview
DoCmd.OutputTo acOutputReport, "rptTest", acFormatPDF, Path, True

[Monoceros]

Try (untested)
DoCmd.OpenReport "rptTest", acPreview
DoCmd.OutputTo acOutputReport, "rptTest", acFormatPDF, Path, True

Yes, it worked ! Thank you very much