Open PDF from Macro

There is a very easy way - just call the filename from shell and windows will open it with the default pdf reader.

For example: "C:\temp\mypdf.pdf"

mr.T wrote:

I couldnt get that to work.

Shell "N:\PDFNEW\" & FileName, vbNormalFocus

N:\PDFNEW is the location I save my PDF files.

Any ideas?

Use the Windows API Shell command. That requires you to set up the call to a Windows DLL first.

Don't forget you need to decalre the Windows API function first.

SW M> > There is a very easy way - just call the filename from shell and

What is the code after I call the .dll ?

It took a while but this is how I got it to work..

----------------------------

Const SW_SHOWNORMAL = 1 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute(1, "Open", PdfFileLocation & FileName & ".pdf", "", PdfFileLocation, SW_SHOWNORMAL)

----------------------------

Ps.

Thanks to That70sTick for the pointers..

Now if I could just figure out how to link that DataBase to custom properties ..

That one works. Thanks.

I modified it to popup a message box if someone doesnt have Adobe installed.

PDFOPEN = ShellExecute(1, "Open", FileName, "", PdfFileLocation, SW_SHOWNORMAL)

If PDFOPEN < 32 Then MsgBox "Adobe Acrobat is not installed, no preview will be shown", vbExclamation, "SAVE2PDF - NO PREVIEW" End If