Dynamic Report File Name When Saving as PDF?

[jennifers]

I have found a way to change the report caption dynamically based on criteria in the report and this only changes the file name for email purposes. I would like the default save as PDF report name to be dynamic based on report criteria. What is the best way to do so?

[ranman256]

report name is picked in a combo box
the query holds the Output title. the query knows who and what.


vTitle = me.txtTitle
vFile = "c:\temp" & vTitle & ".pdf"
'this web site keeps removing the slash after TEMP)

DoCmd.OutputTo acOutputReport, cboRpt, acFormatPDF, vFILE

[pbaldy]

I don't know about "best"; I typically use OutputTo to save the file with the desired name.

[jennifers]

This may be a novice question but where is the correct place to put the VTitle = and the vFile= ? I get "Compile Error: Variable not defined". I was trying to put i t in the on click event for print preview.

[jennifers]

I was able to add a button to my form that generates the report to solve this and save it as a PDF with the name containing the criteria. Here was my solution:

Dim StrFileName As String
Dim strReport As String
Dim strFrmDate As String
Dim strToDate As String


strReport = "My Report Name"
strFrmDate = Format(Me.txtFromDate, "MM-DD-YYYY")
strToDate = Format(Me.txtThruDate, "MM-DD-YYYY")


StrFileName = Me.cboReport & " " & Me.cboUnitNum.Column(2) & "_" & strFrmDate & "-" & strToDate & ".PDF"
StrFileName = "C:\Data\temp" & StrFileName


DoCmd.OpenReport strReport, acViewPreview


DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, StrFileName, False

[pbaldy]

Glad you got it working. You generally don't need to open the report first, unless you're using a wherecondition to filter it. You might try it without that line to get rid of the user seeing it, unless of course you want them to.