I cannot install any pdf writers on the machine. I need to print a MS access 2000 report to a pdf file so I can email this. I already have a PDF995 printer in my windows list of printers. All this needs to be done by VBA code.
5 8030
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 -
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
-
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
-
ByVal lpKeyName As Any, ByVal lpDefault As String, _
-
ByVal lpReturnedString As String, ByVal nSize As Long, _
-
ByVal lpFileName As String) As Long
-
-
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
-
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
-
ByVal lpKeyName As Any, ByVal lpString As Any, _
-
ByVal lpFileName As String) As Long
-
-
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
-
-
Sub pdfwrite(reportname As String, destpath As String, Optional strcriteria As String)
-
-
Dim syncfile As String, maxwaittime As Long
-
Dim iniFileName As String, tmpPrinter As Printer
-
Dim outputfile As String, X As Long
-
Dim tmpoutputfile As String, tmpAutoLaunch As String
-
-
'***** IMPORTANT - SEE THIS *****
-
' set the location of the PDF995.ini and the pdfsync files
-
iniFileName = "C:\Program Files\pdf995\res\pdf995.ini"
-
syncfile = "c:\documents and settings\all users\application data\pdf995\pdfsync.ini"
-
-
If Mid(destpath, Len(destpath), 1) <> "\" Then destpath = destpath & "\"
-
outputfile = destpath & reportname & ".pdf"
-
-
tmpoutputfile = ReadINIfile("PARAMETERS", "Output File", iniFileName)
-
tmpAutoLaunch = ReadINIfile("PARAMETERS", "Autolaunch", iniFileName)
-
-
On Error Resume Next
-
Kill outputfile
-
On Error GoTo Cleanup
-
-
X = WritePrivateProfileString("PARAMETERS", "Output File", outputfile, iniFileName)
-
X = WritePrivateProfileString("PARAMETERS", "AutoLaunch", "0", iniFileName)
-
-
Set tmpPrinter = Application.Printer
-
Application.Printer = Application.Printers("PDF995")
-
-
DoCmd.OpenReport reportname, acViewNormal, , strcriteria
-
-
Sleep (10000)
-
maxwaittime = 300000 'If pdf995 isn't done in 5 min, quit anyway
-
Do While ReadINIfile("PARAMETERS", "Generating PDF CS", syncfile) = "1" And maxwaittime > 0
-
Sleep (10000)
-
maxwaittime = maxwaittime - 10000
-
Loop
-
-
Cleanup:
-
Sleep (10000)
-
X = WritePrivateProfileString("PARAMETERS", "Output File", tmpoutputfile, iniFileName)
-
X = WritePrivateProfileString("PARAMETERS", "AutoLaunch", tmpAutoLaunch, iniFileName)
-
X = WritePrivateProfileString("PARAMETERS", "Launch", "", iniFileName)
-
On Error Resume Next
-
-
Application.Printer = tmpPrinter
-
-
End Sub
-
-
Function ReadINIfile(sSection As String, sEntry As String, sFileName As String) As String
-
-
Dim X As Long
-
Dim sDefault As String
-
Dim sRetBuf As String, iLenBuf As Integer
-
Dim sValue As String
-
-
sDefault$ = ""
-
sRetBuf$ = String$(256, 0) '256 null characters
-
iLenBuf% = Len(sRetBuf$)
-
X = GetPrivateProfileString(sSection, sEntry, _
-
sDefault$, sRetBuf$, iLenBuf%, sFileName)
-
ReadINIfile = Left$(sRetBuf$, X)
-
-
End Function
-
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 -
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
-
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
-
ByVal lpKeyName As Any, ByVal lpDefault As String, _
-
ByVal lpReturnedString As String, ByVal nSize As Long, _
-
ByVal lpFileName As String) As Long
-
-
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
-
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
-
ByVal lpKeyName As Any, ByVal lpString As Any, _
-
ByVal lpFileName As String) As Long
-
-
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
-
-
Sub pdfwrite(reportname As String, destpath As String, Optional strcriteria As String)
-
-
Dim syncfile As String, maxwaittime As Long
-
Dim iniFileName As String, tmpPrinter As Printer
-
Dim outputfile As String, X As Long
-
Dim tmpoutputfile As String, tmpAutoLaunch As String
-
-
'***** IMPORTANT - SEE THIS *****
-
' set the location of the PDF995.ini and the pdfsync files
-
iniFileName = "C:\Program Files\pdf995\res\pdf995.ini"
-
syncfile = "c:\documents and settings\all users\application data\pdf995\pdfsync.ini"
-
-
If Mid(destpath, Len(destpath), 1) <> "\" Then destpath = destpath & "\"
-
outputfile = destpath & reportname & ".pdf"
-
-
tmpoutputfile = ReadINIfile("PARAMETERS", "Output File", iniFileName)
-
tmpAutoLaunch = ReadINIfile("PARAMETERS", "Autolaunch", iniFileName)
-
-
On Error Resume Next
-
Kill outputfile
-
On Error GoTo Cleanup
-
-
X = WritePrivateProfileString("PARAMETERS", "Output File", outputfile, iniFileName)
-
X = WritePrivateProfileString("PARAMETERS", "AutoLaunch", "0", iniFileName)
-
-
Set tmpPrinter = Application.Printer
-
Application.Printer = Application.Printers("PDF995")
-
-
DoCmd.OpenReport reportname, acViewNormal, , strcriteria
-
-
Sleep (10000)
-
maxwaittime = 300000 'If pdf995 isn't done in 5 min, quit anyway
-
Do While ReadINIfile("PARAMETERS", "Generating PDF CS", syncfile) = "1" And maxwaittime > 0
-
Sleep (10000)
-
maxwaittime = maxwaittime - 10000
-
Loop
-
-
Cleanup:
-
Sleep (10000)
-
X = WritePrivateProfileString("PARAMETERS", "Output File", tmpoutputfile, iniFileName)
-
X = WritePrivateProfileString("PARAMETERS", "AutoLaunch", tmpAutoLaunch, iniFileName)
-
X = WritePrivateProfileString("PARAMETERS", "Launch", "", iniFileName)
-
On Error Resume Next
-
-
Application.Printer = tmpPrinter
-
-
End Sub
-
-
Function ReadINIfile(sSection As String, sEntry As String, sFileName As String) As String
-
-
Dim X As Long
-
Dim sDefault As String
-
Dim sRetBuf As String, iLenBuf As Integer
-
Dim sValue As String
-
-
sDefault$ = ""
-
sRetBuf$ = String$(256, 0) '256 null characters
-
iLenBuf% = Len(sRetBuf$)
-
X = GetPrivateProfileString(sSection, sEntry, _
-
sDefault$, sRetBuf$, iLenBuf%, sFileName)
-
ReadINIfile = Left$(sRetBuf$, X)
-
-
End Function
-
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
Sign in to post your reply or Sign up for a free account.
Similar topics
by: gudia |
last post by:
I want to Programatically generate Access reports in the pdf format
using some tool and then email them to people in the same code. Right
now I am trying to do this with pdf995 using VBA (emailing...
|
by: cyranoVR |
last post by:
This is the approach I used to automate printing of Microsoft Access
reports to PDF format i.e. unattended and without annoying "Save As..."
dialogs, and - more importantly - without having to use...
|
by: cantelow |
last post by:
Hi. I've got a program printing multiple pdf reports, and I need to
wait for completion of various associated operations- The pdf printer
prints to one file, then I need to copy that where I need...
|
by: Jason |
last post by:
For some reason, most but not all reports printing from an access
application our client is using will not print any images on the reports
or forms. One report will print the image and data...
|
by: Thomas Zimmermann |
last post by:
Is it possible from VBA to control which printer a report is send to? The
"DoCmd.OpenReport", always sends the job to the standardprinter, but I want
to be able to specify an alternative printer...
|
by: salad |
last post by:
Hi Guys: I was stuck. I needed to send a report to a file. My
beautiful report(s) in Access were going to require loss of formatting
with RTFs, a PITA in WordMailMerge, sending it as a text...
|
by: jbonifacejr |
last post by:
This is my first day here, so please be patient. I do not know how to
search very well so the search I tried to get the answer showed me
topics from the year 2000 and they really don't cover what I...
|
by: Gilberto |
last post by:
pks00
Expert
280 Posts April 16th, 2007
01:08 PM
Re: How to print MS Access 2000 report to PDF995 printer by VBA Code
Sweet, your using pdf995, makes answering this question that much...
|
by: Snoopy33 |
last post by:
I have a DB that I developed on access XP (2002) and deployed over a
year ago. No one has had problems printing any of the reports within
the DB until we started loading 2007 on new computers. ...
|
by: DolphinDB |
last post by:
Tired of spending countless mintues downsampling your data? Look no further!
In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
|
by: ryjfgjl |
last post by:
ExcelToDatabase: batch import excel into database automatically...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM).
In this month's session, we are pleased to welcome back...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM).
In this month's session, we are pleased to welcome back...
|
by: Vimpel783 |
last post by:
Hello!
Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
|
by: ArrayDB |
last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: af34tf |
last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome former...
| |