Access Report to PDF without Save As Dialog

Unfortunately I'm on Access 2003 and that won't work as is. Is there a way to get this to work with 2003?

I don't know if this will work. If it doesn't, please post your code.

Private Sub PrintPdf_Click()
Dim strPdfWriterPath As String
Dim strFilePath As String
Dim strJob As String
Dim strAccessRptName As String
'Open File
'strPdfWriterPath is the path to the application object (your pdf writer e.g. adobe.exe)
'strFilePath is the path to the pdf file

strPdfWriterPath = "C:\Program Files\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe"
strFilePath = "s:\" & strJob & strAccessRptName & ".pdf"


Call Shell(strPdfWriterPath & " " & strFilePath, vbMaximizedFocus)

End Sub

oops! left out the variable assignments for the Job and ReportName

Private Sub PrintPdf_Click()
Dim strPdfWriterPath As String
Dim strFilePath As String
Dim strJob As String
Dim strAccessRptName As String
'Open File
'strPdfWriterPath is the path to the application object (your pdf writer e.g. adobe.exe)
'strFilePath is the path to the pdf file

strPdfWriterPath = "C:\Program Files\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe"
strJob = Me.txtJob   'assumed textbox on report launcher
strAccessRptName = Me.txtjRptTitle
strFilePath = "s:\" & strJob & strAccessRptName & ".pdf"


Call Shell(strPdfWriterPath & " " & strFilePath, vbMaximizedFocus)

End Sub

puppydogbuddy:
I'm getting a runtime error on the call shell line of code.

Not the ideal solution, but it works. It would be nice to be able to do this without having to add the outside .dll files, but from all the research I've done, I think this may be the only feasable option in 2003. Thanks!

What was the error #?  That code works with Version 5 of Acrobat.  Do you have the correct path to Acrobat?  What version of acrobat do you have?

The path was incorrect, but when I fixed it, it opens Acrobat, but gives me the error file not found.

I'm on acrobat 8.

here's the code I'm using to test it:

Private Sub Command50_Click()

Dim strPdfWriterPath As String
Dim strFilePath As String
Dim strJob As String
Dim strAccessRptName As String
'Open File
'strPdfWriterPath is the path to the application object (your pdf writer e.g. adobe.exe)
'strFilePath is the path to the pdf file

strPdfWriterPath = "C:\Program Files\Adobe\Acrobat 8.0\Acrobat\Acrobat.exe"
strJob = "999"   'assumed textbox on report launcher
strAccessRptName = "CA Letter 05-09"
strFilePath = "c:\" & strJob & strAccessRptName & ".pdf"


Call Shell(strPdfWriterPath & " " & strFilePath, vbMaximizedFocus)


End Sub

Apparently, the Shell command is looking for the file to open it, but can't find it because it has not been saved.  Try the code as modifiied and see if it works.  I think you might need to set a vb library reference to Accrobat.

Private Sub Command50_Click()

'Declare variables representing the objects to be manipulated
Dim PDFdoc As New AcroPDDoc
Dim strPdfWriterPath As String
Dim strFilePath As String
Dim strJob As String
Dim strAccessRptName As String
'___________________________________________________
'initialize the object variables
'______________________________________________________
'strPdfWriterPath is the path to the application object (your pdf writer e.g. adobe.exe)
'strFilePath is the path to the pdf file

strPdfWriterPath = "C:\Program Files\Adobe\Acrobat 8.0\Acrobat\Acrobat.exe"
strJob = "999"   'assumed textbox on report launcher
strAccessRptName = "CA Letter 05-09"
strFilePath = "c:\" & strJob & strAccessRptName & ".pdf"

'_________________________________
'save, then open the report created in Access to pdf
'_____________________________________________

PDFdoc.Save & " " & strFilePath
Call Shell(strPdfWriterPath & " " & strFilePath, vbMaximizedFocus)

End Sub

How do I set the VB Library reference. I tried the code and am getting "Compile Error: User-Defined type not defined" on the line:
Dim PDFdoc As New AcroPDDoc

Ok, I think we're getting closer. I went to tools - references in the code editor and added:
Adobe Acrobat 8.0 Type Library
Acrobat Access 3.0 Type Library
Acrobat Distiller
Adobe PDFMaker for Office

Now I'm getting a Syntax Error on
PDFdoc.Save & " " & strFilePath

Place your form in design view, then go to the code editor window.  Once you are in the vb code editor, go to the Access command menu and select Tools>references.  First, look at the screen and see if it says if there are any missing references; then scroll down the reference list for the Adobe 8  reference, select it and select ok.

go to the error line in the code editor, see if you can make use of Intellisense  by typing PDFdoc.Save   and see if it tells you the syntax/poperties are required to execute the save command, and modify your variable strings accordingly. If PDFdoc.Save does not exist, try PDFdoc.SaveAS...........

Just for kicks, change the following line of my code:
          PDFdoc.Save & " " & strFilePath

to this:
        PDFdoc.Save(strFilePath)
or this:
       PDFdoc.Save strFilePath

When I try that I get a type mismatch. I did some digging and saw someone's code with it having a 1, before the filename like this:
PDFdoc.Save 1, strFilePath

When I do that I get a file not found in acrobat. If I put it like this:
PDFdoc.Save (1, strFilePath)
I get a syntax error. I'm not getting any intellisence

This is where I am so far. I also modified he 1st 2 lines of code:

Private Sub Command50_Click()

'Declare variables representing the objects to be manipulated
Dim PDFdoc As Object
Set PDFdoc = New AcroPDDoc
'Dim PDFdoc As New AcroPDDoc
Dim strPdfWriterPath As String
Dim strFilePath As String
Dim strJob As String
Dim strAccessRptName As String
'___________________________________________________
'initialize the object variables
'______________________________________________________
'strPdfWriterPath is the path to the application object (your pdf writer e.g. adobe.exe)
'strFilePath is the path to the pdf file

strPdfWriterPath = "C:\Program Files\Adobe\Acrobat 8.0\Acrobat\Acrobat.exe"
strJob = "999"   'assumed textbox on report launcher
strAccessRptName = "CA Letter 05-09"
strFilePath = "c:\" & strJob & strAccessRptName & ".pdf"

'_________________________________
'save, then open the report created in Access to pdf
'_____________________________________________
PDFdoc.Save 1, strFilePath
Call Shell(strPdfWriterPath & " " & strFilePath, vbMaximizedFocus)


End Sub

Ok, you've changed to the late binding method for which you will not get intellisense.  That is ok if you can get it to work.  The 1 in the save is the number of pages....I changed to saveas.  Try the code as shown on the code snippet below:

Private Sub Command50_Click()
 
'Declare variables representing the objects to be manipulated
Dim PDFdoc As Object
 
'Dim PDFdoc As New AcroPDDoc        'n/a-used with early binding method
Dim strPdfWriterPath As String
Dim strFilePath As String
Dim strJob As String
Dim strAccessRptName As String
'___________________________________________________
'initialize the object variables
'______________________________________________________
'strPdfWriterPath is the path to the application object (your pdf writer e.g. adobe.exe)
'strFilePath is the path to the pdf file
 
strPdfWriterPath = "C:\Program Files\Adobe\Acrobat 8.0\Acrobat\Acrobat.exe"
strJob = "999"   'assumed textbox on report launcher
strAccessRptName = "CA Letter 05-09"
strFilePath = "c:\" & strJob & strAccessRptName & ".pdf"
 
Set PDFdoc = New AcroPDDoc
'_________________________________
'save, then open the Access report converted to pdf
'_____________________________________________
PDFdoc.SaveAs strFilePath
Call Shell(strPdfWriterPath & " " & strFilePath, vbMaximizedFocus)
                                              

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:

Runtime error '438'
Object doesn't support this property or method

Flaging the Saveas line of code....

What is late binding? Can i do it differently and get the intellisence?

Ok, So I changed the binding so I have intellisencs now. Here are the methods that intellisencs shows for PDFdoc.   (no SaveAs)

AquirePage
ClearFlags
Close
Create
CreateTextSelect
CreateThumbs
CropPages
DeletePages
DeleteThumbs
GetFileName
GetFlags
GetInfo
GetInstanceID
GetJSObject
GetNumPages
GetPageMode
GetPermanantID
InsertPages
MovePage
Open
OpenAVDoc
ReplacePages
Save
SetFlags
SetInfo
SetPageMode