many reports into one pdf

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
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?
 
Regarding the page number, I created tables for the last pages numbers, and
then use them in the next report.
 
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.
 
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.
 
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.
 
Back
Top