many reports into one pdf

K

kunon2

Hi,

I have 4 reports; RPT1, RPT2, RPT3, RPT4.
My goal is to compile these 4 reports into a single pdf file.
When I print a single report into pdf, I used print-acrobat distiller option.
Should I change options in pdf or can I do it in Access?
Thanks.
 
R

RobertSMS

That's a good question. I've just been creating separate .PDF files for each
report and then assembling them in Acrobat. It'd be much more convenient if
there was an option to append to an existing Acrobat file, but I'm not aware
that there is. Maybe someone else will know. BTW, what do you do about page
numbers?
 
K

kunon2

Regarding the page number, I created tables for the last pages numbers, and
then use them in the next report.
 
R

RobertSMS

Interesting. How do you get the last page numbers into a table?

I've looked through the Acrobat documentation and it looks to me like it
will always create a new file when converting an Office document to .PDF.
 
K

kunon2

Currently, my reports are not compiled yet, but they have consecutive page
numbers.

This is what fredg suggested.

Add a new table to the database.
Add one Field, Number datatype, Integer Field Size.
Name this field "LastPage"
Enter a 0 as it's value.
Name this table "tblLastPage"

Code the first Report Detail Print event:
CurrentDb.Execute "Update tblLastPage Set tblLastPage.LastPage = " &
Me.[Pages] & ";", dbFailOnError

Code the second Report Page Footer Format event:
Me.[Page] = DLookUp("[LastPage]","tblLastPage") + 1

Done!
Good luck.
 
K

kunon2

Currently, my reports are not compiled yet, but they have consecutive page
numbers.

This is what fredg suggested.

Add a new table to the database.
Add one Field, Number datatype, Integer Field Size.
Name this field "LastPage"
Enter a 0 as it's value.
Name this table "tblLastPage"

Code the first Report Detail Print event:
CurrentDb.Execute "Update tblLastPage Set tblLastPage.LastPage = " &
Me.[Pages] & ";", dbFailOnError

This is a corrected part.
In the second report, at the "page number" text box property,
set "Data", "Control Source" as
=[Page]+DLookUp("[LastPage]","tblLastPage")

Really Done!
Good luck.
 
Top