Hi all,
I am exporting a PDF report utilizing the file save as module
When exporting, I get 2 files being exported but only one file saved (the required report) in the selected location and not sure where I need to make adjustments
Please could you advise
I am exporting a PDF report utilizing the file save as module
When exporting, I get 2 files being exported but only one file saved (the required report) in the selected location and not sure where I need to make adjustments
Please could you advise
Private Sub Export_PDF_Report_Click()
On Error GoTo Export_PDF_Report_Click_Err
Dim StrFileName As String
Dim StrQryName As String
Dim StrSaveFile As String
StrFileName = strGetFileFolderName("Arms Control Report" & " - Customer -" & " " & Forms![New Entry]![CustomerNameLink], 2, "PDF")
If Len(StrFileName & "") < 1 Then
StrFileName = Application.CurrentProject.Path & "\Arms Control Report" & Format(Date, "yyyymmdd") & ".PDF"
End If
DoCmd.OutputTo acReport, ("Report - Mail"), acFormatPDF
Export_PDF_Report_Click_Exit:
Exit Sub
Export_PDF_Report_Click_Err:
MsgBox Error$
Resume Export_PDF_Report_Click_Exit
End Sub
Last edited: