How to Publish and Save each Record Report in Separate File? Access VBA Code Below

[June7]

I did not upload anything.

I downloaded your posted file.



Just do the edits.

[ekryez]

I did not upload anything.

I downloaded your posted file.

Just do the edits.

that doesn't work still prints all the records inside.

[June7]

Then I don't understand what you want.

The Print All button prints each project record to a single 1-page PDF.

[ekryez]

Then I don't understand what you want.

The Print All button prints each project record to a single 1-page PDF.

The Print All Button Publish Save each Record, in Separate file Project Name + Project Number .PDF at C:\Reports. DONE.
Problem, instead of publishing inside the report only the respective record, publishes all.

[June7]

Do not understand "Problem, instead of publishing inside the report only the respective record, publishes all."

I open the report directly from Navigation pane and each record shows on separate page because of the size of the Detail Section. Could set ForceNewPage property.

Why is this a problem? What do you want the report to do? If the code produces the appropriate output, why is the report setup a problem?

[ekryez]

Create the Folder in C:\Reports, Click Print All, check one of the PDF Reports Published in C:\Reports

[June7]

I've already done that several times. I get 5 PDF documents, each shows one project record.

[ekryez]

I think you don't get it. open the file and scroll to the end

[June7]

I did that. I view one PDF at 50%. The PDF is ONE PAGE and ONE RECORD. There is nowhere to scroll. These are the 3 lines of edited code:

DoCmd.OpenReport "Total Report", acViewPreview, , "ProjectNumber='" & !ProjectNumber & "'"
DoCmd.OutputTo acOutputReport, "Total Report", acFormatPDF, MyPath & MyFileName
DoCmd.Close acReport, "Total Report"

[ekryez]

you sure you clicking Print All? Delete all the Files in C:\Report, Click on Print All, Open a Report Pdf File

[June7]

Yes, I am sure I click your Print All button. Done, Done, Done multiple times.

[ekryez]

I did that. I view one PDF at 50%. The PDF is ONE PAGE and ONE RECORD. There is nowhere to scroll. These are the 3 lines of edited code:

DoCmd.OpenReport "Total Report", acViewPreview, , "ProjectNumber='" & !ProjectNumber & "'"
DoCmd.OutputTo acOutputReport, "Total Report", acFormatPDF, MyPath & MyFileName
DoCmd.Close acReport, "Total Report"

Sorry I missed this, works great, Big Thank you, let me try in Real thing and will buy you Dinner

[June7]

I may have edited that post to add the code lines after you first read it. Glad you got it working.

[ekryez]

I may have edited that post to add the code lines after you first read it. Glad you got it working.

June sorry, I was doing and doing 10 things at the time, it works like a charm. some little problems but on DB File naming so nothing to do with this. Great HELP, and thank you for your patience and your Brilliant simple solution.