Code:
Sub test()
Dim rsContracts As DAO.Recordset
Dim ColumnName As String
Set rsContracts = CurrentDb.OpenRecordset( _
"SELECT DISTINCT TEAMS FROM MASTER ")
Do Until rsContracts.EOF
ColumnName = rsContracts!TEAMS
DoCmd.OpenReport "MAS_REPORT", acViewPreview, , "TEAMS= '& ColumnName &'"
DoCmd.OutputTo acOutputReport, "MAS_REPORT", acFormatPDF, "c:\test\" & ColumnName & ".pdf"
rsContracts.MoveNext
Loop
End Sub
I tried this above code. I got renamed pdfs But it prints all pages.
My report Query is
Code:
SELECT * FROM MASTER