Access 2003: Save report as pdf file

Experts Exchange

	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.6

Access 2003: Save report as pdf file

Asked by mytfein in Access Reports, Microsoft Applications, Access Coding/Macros

Hi EE,

I need to save report to pdf, and name the pdf based on the student's name.....

found this post on EE
http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Reports/Q_23225253.html?sfQueryTermInfo=1+pdf+report+save

Would like to do the same thing.

Copied the code in the link mentioned in the above post:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=35321&lngWId=1

into a public module.

Then I ran:
Public Sub test()
Call RunReportAsPDF("rpt_Test", "C:\ARG_09_M4_Graph\", "test.pdf")
End Sub

Report went to printer.....

Do I have to modify any of the values for XP, and my adobe printer name is "Adobe PDF".
Pasted in code window below the default values:

Are there other techniques to saving access report as pdf.
Also, my access report uses criteria from a form, it's not just a static report....

Your advice is deeply appreciated, tx, sandra

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

           
           
             Public Function RunReportAsPDF(rptName As String, sPDFPath As String, sPDFName As String)
    '---------------------------------
    'rptName = Microsoft Access report name
    '     you
    'want to create pdf from
    'sPDFPath = the directory path where you
    '     want
    'to create the pdf file (ex. - "c:\data\
    '     ")
    'sPDFName = the name of the pdf file you
    '     are
    'wanting to create (ex. - "file001.pdf")
    '
    '---------------------------------
    Dim sMyDefPrinter As String
    On Error GoTo Err_RunReport
    'Save current default printer
    sMyDefPrinter = bGetRegValue(HKEY_CURRENT_USER, "Software\Microsoft\WIndows NT\CurrentVersion\Windows", "Device")
    ' Set default printer to PDF Writer
    bSetRegValue HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device", "Acrobat PDFWriter"
    'Setting value for PDFFileName in the re
    '     gistry stops file dialog box from appear
    '     ing
    bSetRegValue HKEY_CURRENT_USER, "Software\Adobe\Acrobat PDFWriter", "PDFFileName", sPDFPath + sPDFName
    'Run the report
 
 
    DoCmd.OpenReport rptName, acViewNormal
Exit_RunReport:
        ' Restore default printer
        bSetRegValue HKEY_CURRENT_USER, "Software\Microsoft\WIndows NT\CurrentVersion\Windows", "Device", sMyDefPrinter
        Exit Function
Err_RunReport:
        MsgBox Err.Description
        Resume Exit_RunReport
    End Function

           
         

Related Solutions: Save report to PDF in access 2003 Access 2003: Save report as pdf file -…

20091111-EE-VQP-92 - Hierarchy / EE_QW_Related_20080208

Hall of Fame

1. boag2000769,289
2. capricorn1150,203
3. peter57r135,618
4. LSMCons...119,985
5. thenelson91,183
6. matthews...89,290
7. TextReport84,500
8. DatabaseMX73,882
9. tbsgadi68,615
10. Helen_Fe...52,391
11. JDettman45,213
12. harfang40,926
13. GRayL27,628
14. rockiroads25,600
15. mlmcc24,775
16. kelvinsparks24,700
17. sb920,300
18. puppydog...18,800
19. coffeeshop16,200
20. mbizup15,950
21. hnasr15,207
22. cactus_d...14,300
23. mildurait13,250
24. jimpen12,578
25. budorat10,900

1. boag20001,380,960
2. capricorn1392,543
3. LSMCons...358,407
4. peter57r349,159
5. DatabaseMX311,072
6. harfang207,650
7. matthews...199,831
8. jefftwilley168,012
9. jimhorn145,747
10. GRayL125,039
11. TextReport119,416
12. JDettman116,793
13. thenelson110,585
14. tbsgadi94,925
15. mbizup91,245
16. eghtebas89,865
17. irudyk63,596
18. frankytee61,340
19. omgang60,682
20. OnALearn...56,662
21. puppydog...56,205
22. rockiroads55,040
23. mlmcc54,091
24. Helen_Fe...52,391
25. stevbe51,181

Access 2003: Save report as pdf file

Asked by mytfein in Access Reports, Microsoft Applications, Access Coding/Macros

About this solution