Buongiorno a tutti,
la mia applicazione stampa l\'allegato di un documento, attraverso il codice che ho inserito successivamente. Da quando è stato installato "Acrobat 8 standard" (prima era installato Acrobat Reader 7), non funziona più e mi dà "Error 210: automation object member not found" sulla riga "myAcroDoc.Open filename" .
Devo modificare qualcosa nel codice?
Grazie 1000.
Claudia
Function ApriAllegato(path As String, nome As String) As Variant
On Error Goto Errore
Dim myAcroDoc As Variant
Dim myAVdoc As Variant
Dim numPages As Integer
Dim filename As String
filename=path+nome
Set myAcroDoc = CreateObject("AcroExch.PDDoc")
Set myAVdoc = CreateObject("AcroExch.AVDoc")
myAcroDoc.Open filename
numPages = myAcroDoc.GetNumPages-1
myAcroDoc.Close
myAVdoc.Open filename, nome
myAVdoc.PrintPages 0, numPages, 1, False, False
myAVdoc.Close True
ApriAllegato=True
Exit Function
Errore:
Print " Errore: "+ Str(Err)+ " " + Error$
ApriAllegato=False
Exit Function
End Function
Claudia
|