Can you please try this (outputto doesn't allow filters):
Code:
Private Sub Report_PDFs_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim qdf As QueryDef
Set db = CurrentDb
Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT [OPENPLEDGES].[FundID] FROM OPENPLEDGES AND ((OPENPLEDGES.FundID) Like '1*' Or (OPENPLEDGES.FundID) Like '2*' Or (OPENPLEDGES.FundID) Like '3*')));", dbOpenSnapshot)
Do While Not rst.EOF
'strRptFilter = "[FundID] = " & Chr(34) & rst![FundID] & Chr(34)
'DoCmd.OutputTo acOutputReport, "Open Pledges", acFormatPDF, "H:\Development\AOB Capital Campaign planning\Stewardship & _Cultivation\Parish Update Reports\Report Destination" & "" & rst.Fields("FundID") & " " & "Open Pledge" & " " & Format$(DateAdd("m", -1, Now()), "mmmyyyy") & ".pdf"
'Open the report hidden using the WhereCondition argument and window mode hidden - note FundID assumed to be string
DoCmd.OpenReport "Open Pledges",acViewPreview,,[FundID]= '" & rst![FundID] & "'",acHidden
'outputto without report name to export the currently open report
DoCmd.OutputTo acOutputReport, , acFormatPDF, "H:\Development\AOB Capital Campaign planning\Stewardship & _Cultivation\Parish Update Reports\Report Destination" & "" & rst.Fields("FundID") & " " & "Open Pledge" & " " & Format$(DateAdd("m", -1, Now()), "mmmyyyy") & ".pdf"
DoEvents
'Close the report
Docmd.Close asReport,"Open Pledges",acSaveNo
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Set qdf = Nothing
Set db = Nothing
End Sub
Cheers,