Originally Posted by
vianda
I was exporting a report to pdf format but separating it by names ( each name can have one to several pages) I don't know what is going on. I have a Run-time error time 2501
Try that way:
Code:
Private Sub Command50_Click()
Dim rsPayroll As DAO.Recordset
Dim sSQL As String
Dim sReportName As String
Dim sExportPathWP As String
Dim sExportName As String
Dim sFilePath As String
sReportName = "TotalPayrollProviderStatements"
sExportPathWP = "F:\PAYROLL\PDF"
sSQL = "SELECT DISTINCT [Provider'sName] FROM TotalPayrollProviders"
Set rsPayroll = CurrentDb.OpenRecordset(sSQL)
With rsPayroll
Do Until .EOF
sExportName = .Fields(0) 'Value of First field in collection (We have only ONE)
sFilePath = sExportPathWP & sExportName & ".pdf"
'Debug.Print sFilePath
sSQL = "[Provider'sName] = '" & sExportName & "'" 'Filter (Where condition)
DoCmd.OpenReport sReportName, acViewPreview, , sSQL, acHidden
'Export:
DoCmd.OutputTo acOutputReport, sReportName, acFormatPDF, sFilePath
DoCmd.Close acReport, sReportName, acSaveNo
.MoveNext
Loop
End With
On Error Resume Next
rsPayroll.Close
Set rsPayroll = Nothing
Err.Clear
End Sub