Do you own a Debenu Quick PDF Library version 7, 8, 9, 10, 11, 12, 13 or iSEDQuickPDF license? Upgrade to Debenu Quick PDF Library 14 today!

Debenu Quick PDF Library - PDF SDK Community Forum Homepage
Forum Home Forum Home > For Users of the Library > I need help - I can help
  New Posts New Posts RSS Feed - DAOpenFileReadOnly always returns zero
  FAQ FAQ  Forum Search   Register Register  Login Login

DAOpenFileReadOnly always returns zero

 Post Reply Post Reply
Message Reverse Sort Order
gregor1234 View Drop Down

Joined: 03 Mar 10
Location: USA
Status: Offline
Points: 1
Post Options Post Options   Thanks (0) Thanks(0)   Quote gregor1234 Quote  Post ReplyReply Direct Link To This Post 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
        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?
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 11.01
Copyright ©2001-2014 Web Wiz Ltd.

Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. AboutContactBlogSupportOnline Store