Printing records on Access 2000

[Don NiKo]

Hello people. I'm using Access 2000 and need your help to create some code to print records, a page that contains an image in .tif format. The thing is that I must print those records containing one page with the image, in the same printjob because it goes to a pdf creator printer, and the pdf file has to contain many records or images. For printing in a normal printer I've made the following:

--------------------------------------
Option Compare Database
Option Explicit
Private Sub Form_Current()
Me![Imagen].Picture = Me![Camino] & Left(Me![NombreImg], 4) & "\" & Me![NombreImg]
End Sub
DoCmd.GoToRecord , , acFirst
Do
DoCmd.PrintOut acPages, 1, 1
DoCmd.GoToRecord , , acNext
Loop

But for the PDF Creator, it doesn´t work because it creates many pdf files of one record. I think I have to store each record or picture in one vector or datastore and then send it to the printer (PDF Creator), the thing is that I don´t know how. I test things like the following but didn´t succed:

DoCmd.PrintOut(AcPrintRange.acPrintAll) = _
DoCmd.GoToRecord , , acFirst _
Do _
DoCmd.GoToRecord , , acNext _
Loop)
--------------------------------------
'Dim x As New Recordset
x.Open
DoCmd.GoToRecord , , acFirst
Do
x.AddNew acFirst, 1, 1
DoCmd.GoToRecord , , acNext
Loop
x.Close
DoCmd.PrintOut x
----------------------------------------

The table wich contains this records has the following structure:

Id NameImg Print (It´s a checkbox)
1 ASD1 X
1 ASD2 X
1 ASD3 X
1 ASD4 X
2 ASD1 X
2 ASD2 X
3 ASD1
3 ASD2
3 ASD3
3 ASD4


Please help me.