Save each record in report as pdf

[rwahdan1978]

Hi

I have a button in report footer that will save each record as pdf but nothing happens and i get error:

Private Sub Command1_Click()


    Dim rpt As Report
    Dim i As Integer
    Set rpt = Reports("Certificates") 'Replace "Report1" with the name of your report
    For i = 0 To rpt.Pages - 1
        rpt.PrintOut acSelection, , , , i  'print the current page
        Dim fileName As String
        fileName = rpt.Controls("canName").Value   'Replace "NameField" with the name of the field in the page header that you want to use as the file name
        DoCmd.OutputTo acOutputReport, "", acFormatPDF, fileName & ".pdf"
    Next i


End Sub

the error:

application defined or object defined error

[Welshgasman]

Why not just issue a report for each record? before they are in the report?

[rwahdan1978]

Why not just issue a report for each record? before they are in the report?

Could you please explain or give an example? Do you mean from a form to print a record?

[Micron]

To do that you should have a form that contains the records that the report also uses. Or if you have a query that the report is based on that is fine too. If the report is based on a table, it will require more code. Which of these are you using to populate the report.

BTW, it's great that you showed the error message instead of just then number like so many people do, but you really should define which line raises the error. I'm guessing that it's the output line, because you're passing a zero length string for the object name to be output. Don't think you can do that.

[madpiet]

[QUOTE=rwahdan1978;526935]Hi

I have a button in report footer that will save each record as pdf but nothing happens and i get error:

Private Sub Command1_Click()


    Dim rpt As Report
    Dim i As Integer
    Set rpt = Reports("Certificates") 'Replace "Report1" with the name of your report
    For i = 0 To rpt.Pages - 1
        rpt.PrintOut acSelection, , , , i  'print the current page
        Dim fileName As String
        fileName = rpt.Controls("canName").Value   'Replace "NameField" with the name of the field in the page header that you want to use as the file name
        DoCmd.OutputTo acOutputReport, "", acFormatPDF, fileName & ".pdf"
    Next i


End Sub

The way I would do it is to use a recordset to loop over all the records you want to print out. (You only need the primary key of the records, because you're just using it as a filter). Then you do something like

NOTE: This is aircode... I'm a terrible person and too lazy to test all the syntax, but this is the basic idea.

dim rsToPrint as Recordset
dim qdf as querydef '-- use this to get just the records you want (and only the ID's. You don't need the rest here)

set qdf = Currentdb.Querydefs("QueryThatSelectsWhatToPrint")
set rsToPrint = qdf.OpenRecordset()

'-- Loop over recordset of records you want to print, pass the values one at a time to the report, print the report, close, go to next record
while Not rsToPrint.EOF
docmd.OpenReport "MyReport","[RecordID]=rsToPrint!RecordID
DoCmd.OutputTo acOutputReport, "", acFormatPDF, fileName & ".pdf"
docmd.Close acReport, "MyReport"
rsToPrint.MoveNext
Loop

rsToPrint.Close
Set rsToPrint = nothing