Hi,
I've a vb6 application on W2003 server with acrobat writer 5 installed and I use fdf toolkit to create adobe pdf .
Now I have to install the same application on a W2003 server with Acrobat 8 pro but when my program save the pdf file I've got an error "Errore 91 Descrizione Object variable or With block variable not set".
Here is the function where I've got the error .
' open PDF as object
On Error Resume Next
Err.Clear
Set AVDoc = CreateObject("AcroExch.AVDoc")
If IsError(AVDoc.Open(strSourceFileName, " ")) = True Then
Print #logfile, Format(Now, "DD-MM-YYYY hh:mm:ss") & " - Errore aperutura del fax " & strSourceFileName & " : Error " & Err.Number & " Description " & Err.Description
Err.Clear
AcroApp.CloseAllDocs
AcroApp.Exit
Set AcroApp = Nothing
Else
Set PDDoc = AVDoc.GetPDDoc
' &H1 complete save - senza opzioni optimising/linearising. Si usa &H5 per linearizzare/ottimizzare
If PDDoc.Save(&H1, strSourceFileName) <> True Then
Print #logfile, Format(Now, "DD-MM-YYYY hh:mm:ss") & " - Errore salvataggio del fax " & strSourceFileName & " : Errore " & Err.Number & " Descrizione " & Err.Description
Err.Clear
End If
Thanks in advance for any help
Bob
I've a vb6 application on W2003 server with acrobat writer 5 installed and I use fdf toolkit to create adobe pdf .
Now I have to install the same application on a W2003 server with Acrobat 8 pro but when my program save the pdf file I've got an error "Errore 91 Descrizione Object variable or With block variable not set".
Here is the function where I've got the error .
' open PDF as object
On Error Resume Next
Err.Clear
Set AVDoc = CreateObject("AcroExch.AVDoc")
If IsError(AVDoc.Open(strSourceFileName, " ")) = True Then
Print #logfile, Format(Now, "DD-MM-YYYY hh:mm:ss") & " - Errore aperutura del fax " & strSourceFileName & " : Error " & Err.Number & " Description " & Err.Description
Err.Clear
AcroApp.CloseAllDocs
AcroApp.Exit
Set AcroApp = Nothing
Else
Set PDDoc = AVDoc.GetPDDoc
' &H1 complete save - senza opzioni optimising/linearising. Si usa &H5 per linearizzare/ottimizzare
If PDDoc.Save(&H1, strSourceFileName) <> True Then
Print #logfile, Format(Now, "DD-MM-YYYY hh:mm:ss") & " - Errore salvataggio del fax " & strSourceFileName & " : Errore " & Err.Number & " Descrizione " & Err.Description
Err.Clear
End If
Thanks in advance for any help
Bob