Printing many images from different records

D

Don_Niko

Hello people. I'm using Access 2000 and need your help to create some code to
print records, I´ve 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


Private Sub Imprimir_Click()
DoCmd.GoToRecord , , acFirst
Do
DoCmd.PrintOut acPages, 1, 1
DoCmd.GoToRecord , , acNext
Loop
End Sub

But for the PDF Creator, it doesn´t work because it creates many pdf files,
one per record instead of one file with all the records or images. 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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top