Previous | Next | (P-PDF) Acrobat 6.0

Topic: Automate Output of Access Reports to PDF
Conf: (P-PDF) Acrobat 6.0, Msg: 141678
From: DoctorV3774
Date: 10/24/2005 10:57 PM

I have the full version of Adobe Acrobat 6.0. What I want to do is to simply automate the output of one report to a PDF File rather than print it out. When I set my PDF Printer as the default printer it stops after each key field (in this case AOR_Full_Name) and prompts me to give the file a name and save it. I just wanted to automatically save the file name and move on to the next AOR_Full_Name until the loop is done, but I cannot find any code any posts anywhere on this. Does someone know how to do this? Thanks

**********Code***************


Function PrintReports()

On Error Resume Next

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("Select AOR_Full_Name from List_AOR_For_Report_Automation;")

rs.MoveFirst

While Not rs.EOF

DoCmd.OpenReport "QUARTERLY_2004_SAMPLE_AUTOMATION_AOR", acNormal, , "AOR_Full_Name='" & rs!AOR_Full_Name & "'"


rs.MoveNext
Wend

Set rs = Nothing
End Function