CODEWITHSUNDEEP
formsms-accesspdfms-access-2010
Mikkel Astrup
Mikkel Astrup

Reputation: 415

Create Access reports from Form and save as PDF

Im currently using an Access database to create alot of reports - the report is made using a Query as a source, in the Query i use a Form as criteria so that the open page in the Form is the data used in the report. Then I save the report as a PDF and click in the form to run the next set of data. That is very time consuming when i have over 500 reports to make. So is there a way to make a function, a VBA or macro to run through all pages in the form and save each report as a PDF?

My form is named NorwF, the query is NorwQ and the report is NorwRap

I hope that makes sense and that there is a faster way to make this projekt run smoothly.

Upvotes: 0

Views: 288

Answers (1)

Albert D. Kallal
Albert D. Kallal

Reputation: 49009

If you place a button on the form, this code behind should work:

Dim rst      As DAO.Recordset

Dim strReport        As String
Dim strReportFile    As String

strReport = "NorwRap"
'Set rst = Me.RecordsetClone
Set rst = CurrentDB.OpenRecordSet("NorwQ")  'use the query
Do While rst.EOF = False

  strReportFile = rst!ID & ".pdf"   ' give report name based on field name
  DoCmd.OpenReport strReport,acViewPreview , , "id = " & rst!ID
  DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strOutFile
  DoCmd.Close acReport, strReport

  rst.MoveNext

Loop

Upvotes: 0

Related Questions