Generating Multi-Page reports via Visual Basic

[Bailey]

Currently I have a basic Report that runs from a query. Statements are
created for employees in a single multi-page report. I need to run something
similar, using the same query, except that for each record I need to create a
separate report file. Each report file needs to be saved as PDF format with
the file name dynamically generated by a combination of db data (Employee
ID), and date. I need to have Access automatically choose the file name based
on the field labeled “Employee IDâ€. The entire process needs to be
automated, started only with the click of a form button on a switchboard. I
have a third party application installed that allows me to print documents
directly to a PDF file. Here is the code I have so far:

Sub subExportMultiReport()
Dim strSQL As String
Dim strReport As String
Dim strFileName As String
Dim rpt As Report
Dim rs As Recordset
Dim intI As Integer
strReport = "channel statements"
strSQL = "Select [Employee ID] From channel"
Set rs = CurrentDb.OpenRecordset(strSQL)
rs.MoveFirst
i = 0
Do Until rs.EOF
DoCmd.OpenReport "Channel Statements", acViewNormal, "Employee ID",
, acHidden
Set rpt = Application.Reports(strReport)
rpt.FilterOn = False
rpt.Filter = "Employee ID"
rpt.FilterOn = True
DoCmd.Close acReport, "Channel Statments", acSaveYes
strFileName = ("C:\Documents and Settings\baidu01\Desktop\test\") &
"rs![Employee ID]" & ".pdf"
DoCmd.OutputTo acOutputReport, "Channel Statements", acFormatPDF,
strFileName
Set rpt = Nothing
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

End Sub