Print one by one report

[Vegaanders]

Hi!
This is perhaps not even an access question but I will give it a go.

One thing my project does is to make payslips. When I want the payslips I put in the month I want as a parameter and then get the payslips, one page per employee in preview mode.
Now to the question. Is there any way to get access to print them out one by one as pdf. (I use Cute writer) Naming them f.ex. as the employment ID. This would ease the workload big time.

[ranman256]

Loop thru a list of employees in a list box, then print to pdf,
Make a list box on a form. This will have the name,ID of the people to send to.
Then click a Print button to run loop below.
It will run thru the list and make the report.

'------------
Public Sub ScanList()
'------------
Dim vTo, vSubj, vBody, vRpt,vID , vFile
Dim vFilePath
dim i as integer
For i = 0 To lstEmps.ListCount - 1
   vID = lstEmps.ItemData(i)
   lstEmps = vID 
   
   vFile = vID & "-payslip.pdf"
   
     docmd.OutputTo acOutputReport ,"rptPayslip", acformatPDF, vFile
Next
End Sub