Export Each Access Form to an Individual PDF

[achenier]

Hi,

I've been looking for a solution of my VBA code that will allow me to export each of my Access Form to an individual PDF file with the client name.

My DB structure is:
Id
Anunciante
Campaña Paquete
Plan
Precio
Clicks
Clicks x día

My VBA Code:

Sub Oneperpage()
    Dim MyDB As DAO.Database
    Dim MyRS As DAO.Recordset
    Dim strSQL As String
 
    'Used to create a Recordset of Employee IDs for Form Filtering for each
    'Employee. [EmployeeID] is the Primary Key making the job easy
    strSQL = "Select Anunciante From Data;"
 
    Set MyDB = CurrentDb
    Set MyRS = MyDB.OpenRecordset(strSQL, dbOpenForwardOnly)
 
    With MyRS
      Do While Not MyRS.EOF
        RecordSource = "Select * From Data Where [Anunciante] = " & _
                           ![Anunciante]
        'Form has a single Record only, Output it to a unique PDF File
        DoCmd.OutputTo acOutputForm, "Anunciante", acFormatPDF, "C:\Test\" & _
                       ![Anunciante] & ".pdf"
         .MoveNext
      Loop
    End With
 
 
    MyRS.Close
    Set MyRS = Nothing
End Sub

Thanks for your help,
A.

[Taaner]

Hey, can you tell us what your concrete question is?

Is the VBA code not working at all, do you get an error message, are the files not/wrong created?