Automated Reports To Acrobat

Hi,

After much frustration and hair pulling I have managed to get the code below to work.. It prints out reports from access one at a time cycling through the list of schools in our county. My question is that I would like to save each report with a filename eg KS1_3000_version1.pdf where 3000 is the unique school ID.

So my question is how can I get the code/acrobat to save my file in a desired location with a pre-specified filename?

this would make the whole process a real click of a button! I know it is possible because we have a national database that does the same thing.. but I cannot crack the backend to see the code

bah!

thanks in advance

john

***********

Option Compare Database

Private Sub Command1_Click()
Dim repQuery As QueryDef
Dim dBase As Database
Dim rsRep As DAO.Recordset
Dim strrep As String
Dim data1 As String

Set dBase = CurrentDb()
Set repQuery = dBase.QueryDefs("john_test_ks1")
Set rsRep = CurrentDb.OpenRecordset("2_KS1_Performance_review_report")

Do While Not rsRep.EOF
data1 = rsRep.Fields("ESTAB_FK").Value
repQuery.sql = "SELECT SCHOOL_BASE_DATA_SCHOOL_BASIC_DATA.DFES, * FROM 2_KS1_Performance_review_report INNER JOIN SCHOOL_BASE_DATA_SCHOOL_BASIC_DATA ON [2_KS1_Performance_review_report].ESTAB_FK = SCHOOL_BASE_DATA_SCHOOL_BASIC_DATA.DFES WHERE ((([2_KS1_Performance_review_report].ESTAB_FK)= " & data1 & "));"
repQuery.Close
DoCmd.OpenReport "john_test_KS1_report"
DoCmd.Close acReport, "john_test_KS1_report"
MsgBox "done"
rsRep.MoveNext
Loop

Set rsRep = Nothing

Exit_Command1_Click:
Exit Sub

Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click

End Sub