Opening a pdf in VBA, getting error 438

[CD Tom]

I've had code in my application for quite some time and now I'm getting error 438. This is the code

Print fHandleFile(app_path + "\shb.pdf", WIN_NORMAL)

this calls the FHandleFile function

Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
Dim Vresponse As String
   'First try ShellExecute
    lRet = apiShellExecute(hWndAccessApp, vbNullString, _
            stFile, vbNullString, vbNullString, lShowHow)
 
    If lRet > ERROR_SUCCESS Then
        stRet = vbNullString
        lRet = -1
    Else
        Select Case lRet
            Case ERROR_SUCCESS:
                varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
                        & stFile, WIN_NORMAL)
                lRet = (varTaskID <> 0)
            Case ERROR_NO_ASSOC:
                'Try the OpenWith dialog
                varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
                        & stFile, WIN_NORMAL)
                lRet = (varTaskID <> 0)
            Case ERROR_OUT_OF_MEM:
                stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
            Case ERROR_FILE_NOT_FOUND:
                stRet = "Error: Adobe acrobat reader not installed.  Couldn't Execute!"
            Case ERROR_PATH_NOT_FOUND:
                stRet = "Error: Path not found. Couldn't Execute!"
            Case ERROR_BAD_FORMAT:
                stRet = "Error:  Bad File Format. Couldn't Execute!"
            Case Else:
        End Select
    End If
    fHandleFile = lRet & IIf(stRet = "", vbNullString, ", " & stRet)
    If fHandleFile = -1 Then
 
    Else
        Vresponse = MsgBox(fHandleFile, vbOKOnly, "" & VMsgtitle & "")
    End If
End Function
 

When it comes to the LRet code line is when I'm getting the 438 error "Object Doesn't support this property of method" however it does open the pdf.
I've tried using the Application.followhyperlink method but that give me a security error, that comes from Microsoft office "Opening shb.pdf Some files can contain viruses or otherwise e harmful to your computer. It is important to be certain that this file is from a trustworthy source. Would you like to open this file?"
I know this file if safe and is part of my application so I don't want that to show.
Either method is fine with me if I can figure out a way to do away with the error 438 or eliminate the security warming.
Any help is always appreciated.
Thanks

[twinnyfo]

CD Tom,

I am not sure if you "need" to have such extensive code to print a PDF.

I use the following Code:

    strPrint = app_path + "\shb.pdf"
    ShellExecute 0, "Print", strPrint, "", "", 0

Then, in a separate Module, declare the Function:

Public 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

It should work printing any file to your default printer. Unless I am missing something obvious, this should serve your purposes. Please clarify if it does not.

Hope this hepps!

[CD Tom]

Thanks for the reply. Now when I try your code I get "There was an error opening this document. The file is damaged and could not be repaired" If I just go to the document in explorer and double click it open just fine. Also I just want to display the document on the screen not print it.
What do you suggest.

[twinnyfo]

Try replacing Print with Open

[CD Tom]

Worked perfect thanks so much

[twinnyfo]

So glad I could be of some hepp!

Cheers!