MS Access 2000 Batch Reports

[plehdeen]

What is the best way to do batch processing of reports? For example, have an existing report which prints all customers together. Want to take that report and create each customer report separately for conversion to PDF.
Thank you!

 

[ComputiVerse]

Why not create each unique report that is needed.
Then chain them together in a macro that has several steps.

Apply the KISS principle here.
Create two or three simple reports. Set your reports to PRINT not PReview.
Then experiment with chaining them together in a macro.
Further Questions:
JDC@wsprog.com
Johnstown, OH

 

[GThrower]

You probably already have your answer but I thought I would throw some code I used to solve this problem. Pardon the lack of comments. This routine filters by filename and prints the result as "'filename'Title".

Gary T.

Function DoTitlePages() As Boolean

Dim strTemp As String
Dim rstFileNames, rstCoverPages As ADODB.Recordset
Dim rptTitlepage As Report

Set rstFileNames = New ADODB.Recordset
'Set rptTitlepage = New Report

rstFileNames.Open "Book_filenames", CurrentProject.Connection, adOpenKeyset
DoCmd.Echo False
With rstFileNames
.MoveFirst
Do While Not rstFileNames.EOF
DoCmd.OpenReport "Titlepage", acViewDesign
strTemp = "Coverpage.[FileName] = '"_
& UCase(.Fields("FileName&quot) & "'"
Reports("Titlepage&quot.Filter = strTemp
Reports("Titlepage&quot.FilterOn = True
Reports("Titlepage&quot.Caption = UCase(.Fields("FileName&quot) & "Title"
DoCmd.OpenReport "Titlepage", acViewDesign
DoCmd.PrintOut
DoCmd.Close acReport, "Titlepage", acSaveYes

.MoveNext
Loop
End With
DoCmd.Echo True
rstFileNames.Close



End Function

 

[tombenedict]

Would someone answer me on this one. I have a large access database of over 25000 records and adding more every day. I have a database at work and an identical one at home to serve as a backup. I want to save the last 20 records I made at work, save to a 3.5 floppy, take them home and add them to my database at home. People say this cannot be done but I don't believe them. HELP!!!
Tom Benedict tbenedic@tampabay.rr.com Thanks