How to print MS Access 2000 report to PDF995 printer by VBA Code

Sweet, your using pdf995, makes answering this question that much easier :)


okay, here is some vba code. Ive got a function called pdfwrite which you call passing in the name of the report, pdf destination and any criteria for running the report. Add this lot to a module

Look for comments saying "IMPORTANT
u need to change the paths to reflect your installation

Hi,
Thanks for the speedy reply.

I tried the code but did not work. I did not get any errors though.
Firstly, I cannot find the file
syncfile = "c:\documents and settings\all users\application data\pdf995\pdfsync.ini"
I searched for it in my entire C: drive. I do not have any other drives.

Secondly, I had to comment the following code as it is not supported by MS Access 2000;
'tmpPrinter As Printer
'Set tmpPrinter = Application.Printer
'Application.Printer = Application.Printers("PDF995")
'Application.Printer = tmpPrinter

Hi,

This code that you gave me was not working. I tried it again today, and for some reason, it works superbly without any errors. I am not sure why, maybe I needed to reboot my machine or something...Anyways, thanks...

Glad its working.
Ive tested this code and it works sweet for me. It now appears its working for you. Not sure why it didnt work in the first place, I can only imagine it wasnt working due to some configuration issue.

Sweet, your using pdf995, makes answering this question that much easier :)


okay, here is some vba code. Ive got a function called pdfwrite which you call passing in the name of the report, pdf destination and any criteria for running the report. Add this lot to a module

Look for comments saying "IMPORTANT
u need to change the paths to reflect your installation

Expand|Select|Wrap|Line Numbers

1. Declare Function GetPrivateProfileString Lib "kernel32" Alias _
2.    "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
3.    ByVal lpKeyName As Any, ByVal lpDefault As String, _
4.    ByVal lpReturnedString As String, ByVal nSize As Long, _
5.    ByVal lpFileName As String) As Long
6.  
7. Declare Function WritePrivateProfileString Lib "kernel32" Alias _
8.    "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
9.    ByVal lpKeyName As Any, ByVal lpString As Any, _
10.    ByVal lpFileName As String) As Long
11.  
12. Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
13.  
14. Sub pdfwrite(reportname As String, destpath As String, Optional strcriteria As String)
15.  
16.     Dim syncfile As String, maxwaittime As Long
17.     Dim iniFileName As String, tmpPrinter As Printer
18.     Dim outputfile As String, X As Long
19.     Dim tmpoutputfile As String, tmpAutoLaunch As String
20.  
21. '***** IMPORTANT - SEE THIS *****
22.     ' set the location of the PDF995.ini and the pdfsync files
23.     iniFileName = "C:\Program Files\pdf995\res\pdf995.ini"
24.     syncfile = "c:\documents and settings\all users\application data\pdf995\pdfsync.ini"
25.  
26.     If Mid(destpath, Len(destpath), 1) <> "\" Then destpath = destpath & "\"
27.     outputfile = destpath & reportname & ".pdf"
28.  
29.     tmpoutputfile = ReadINIfile("PARAMETERS", "Output File", iniFileName)
30.     tmpAutoLaunch = ReadINIfile("PARAMETERS", "Autolaunch", iniFileName)
31.  
32.     On Error Resume Next
33.     Kill outputfile
34.     On Error GoTo Cleanup
35.  
36.     X = WritePrivateProfileString("PARAMETERS", "Output File", outputfile, iniFileName)
37.     X = WritePrivateProfileString("PARAMETERS", "AutoLaunch", "0", iniFileName)
38.  
39.     Set tmpPrinter = Application.Printer
40.     Application.Printer = Application.Printers("PDF995")
41.  
42.     DoCmd.OpenReport reportname, acViewNormal, , strcriteria
43.  
44.     Sleep (10000)
45.     maxwaittime = 300000 'If pdf995 isn't done in 5 min, quit anyway
46.     Do While ReadINIfile("PARAMETERS", "Generating PDF CS", syncfile) = "1" And maxwaittime > 0
47.         Sleep (10000)
48.         maxwaittime = maxwaittime - 10000
49.     Loop
50.  
51. Cleanup:
52.     Sleep (10000)
53.     X = WritePrivateProfileString("PARAMETERS", "Output File", tmpoutputfile, iniFileName)
54.     X = WritePrivateProfileString("PARAMETERS", "AutoLaunch", tmpAutoLaunch, iniFileName)
55.     X = WritePrivateProfileString("PARAMETERS", "Launch", "", iniFileName)
56.     On Error Resume Next
57.  
58.     Application.Printer = tmpPrinter
59.  
60. End Sub
61.  
62. Function ReadINIfile(sSection As String, sEntry As String, sFileName As String) As String
63.  
64.     Dim X As Long
65.     Dim sDefault As String
66.     Dim sRetBuf As String, iLenBuf As Integer
67.     Dim sValue As String
68.  
69.     sDefault$ = ""
70.     sRetBuf$ = String$(256, 0)   '256 null characters
71.     iLenBuf% = Len(sRetBuf$)
72.     X = GetPrivateProfileString(sSection, sEntry, _
73.                sDefault$, sRetBuf$, iLenBuf%, sFileName)
74.     ReadINIfile = Left$(sRetBuf$, X)
75.  
76. End Function
77.  

HI pks00

I was going through the codes as i have a similar problem. I want to generate the report in PDF format when a command button is clicked

But as i am new to the access programming. I could not understand it properly.

Could you please help me out as to How to generate a report in PDF format when a command button is clicked. I too Have "PDF995" as well as "Cute PDF writer"

Please help me out.
Thank you

Regards
Manoj