To answer another thread, I have posted a working example of how  to do this
type of task here

http://www.utteraccess.com/forums/showflat.php?Cat=&Number=1319913&page=&view=&s
b=5&o=&fpart=1&vc=1

using a tools to create PDF's from here

http://www.lebans.com/reporttopdf.htm

Code for the above example:

   Dim qdf As DAO.QueryDef
   Dim strSQL As String
   Dim strPathName As String
   Dim blRet As Boolean
   Dim rs As Recordset
   
 
   strSQL = "SELECT customer.customerID, customer.cusname FROM customer;"
   
   Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
   
   
   If rs.RecordCount < 1 Then
      Exit Sub
   End If
   
   Do
   
       Set qdf = CurrentDb.QueryDefs("customer Query")
       strSQL = "SELECT customer.customerID, customer.cusname, customer.
cusnum, customer.testmemo FROM customer"
       strSQL = strSQL & " WHERE (((customer.customerID)=" & rs!customerID &
"));"
       qdf.SQL = strSQL
       qdf.Close
       Set qdf = Nothing
   
       ' put in the my documnets folder
       ' strPathName = Environ("userprofile") & "\my documents\" & Me.
cbocustomerID.Column(1) & ".pdf"
   
        strPathName = rs!cusname & ".pdf"
   
   
       blRet = ConvertReportToPDF("customer Query", vbNullString,
strPathName, False, False, 0, "", "", 0, 0)

       rs.MoveNext
   
  Loop Until rs.EOF

  rs.Close
 
  Set rs = Nothing