DAOpenFileReadOnly always returns zero

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Just downloaded the evaluation version of QuickPDF and am trying out the AxciveX version for use with MS Office VBA.

When I use DAOpenFIle everything wirks fine but if I use DAOpenFileReadOnly, I always get a returned a zero and Last Error Code is zero as well.

See the VB Sub below:

Sub TryOpenDA()
    Dim InFile As String, DA As Long, LE As Long
    Dim QP As QuickPDFAX0717.PDFLibrary

    Set QP = CreateObject("QuickPDFAX0717.PDFLibrary")

    If QP.UnlockKey(QPLicense) <> 1 Then
        Beep
        Call MsgBox("Invalid Quick PDF License=" & QPLicense, vbOKOnly + vbCritical, "Invalid License")
        Exit Sub
    End If

    InFile = "C:\Documents and Settings\coleg\My Documents\DB Play\Quick PDF Library 7.16 Reference Guide.pdf"

    'DA = QP.DAOpenFile(InFile, "") ' works just fine
    DA = QP.DAOpenFileReadOnly(InFile, "") ' never works
    LE = QP.LastErrorCode

    Call MsgBox("DA =" & Format(DA, "0") & ", LE =" & Format(LE, "0"), vbOKOnly, "DA Returned")

    QP.DACloseFile (DA)

    Set QP = Nothing
End Sub

AM I using it improperly?  Is there a problem with DAOpenFileReadOnly?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
gregor1234 Members Profile Find Members Posts Beginner Joined: 03 Mar 10 Location: USA Status: Offline Points: 1	Post Options Post Reply Quote gregor1234 Report Post Thanks(0) Quote Reply Topic: DAOpenFileReadOnly always returns zero Posted: 03 Mar 10 at 5:41PM
	Just downloaded the evaluation version of QuickPDF and am trying out the AxciveX version for use with MS Office VBA. When I use DAOpenFIle everything wirks fine but if I use DAOpenFileReadOnly, I always get a returned a zero and Last Error Code is zero as well. See the VB Sub below: Sub TryOpenDA() Dim InFile As String, DA As Long, LE As Long Dim QP As QuickPDFAX0717.PDFLibrary Set QP = CreateObject("QuickPDFAX0717.PDFLibrary") If QP.UnlockKey(QPLicense) <> 1 Then Beep Call MsgBox("Invalid Quick PDF License=" & QPLicense, vbOKOnly + vbCritical, "Invalid License") Exit Sub End If InFile = "C:\Documents and Settings\coleg\My Documents\DB Play\Quick PDF Library 7.16 Reference Guide.pdf" 'DA = QP.DAOpenFile(InFile, "") ' works just fine DA = QP.DAOpenFileReadOnly(InFile, "") ' never works LE = QP.LastErrorCode Call MsgBox("DA =" & Format(DA, "0") & ", LE =" & Format(LE, "0"), vbOKOnly, "DA Returned") QP.DACloseFile (DA) Set QP = Nothing End Sub AM I using it improperly? Is there a problem with DAOpenFileReadOnly?