Private Sub Command1_Click()
Dim AcroApp As CAcroApp
Dim AVDoc As CAcroAVDoc
Dim PDDoc As CAcroPDDoc
Dim IsSuccess As Boolean
Dim infile As String
Dim outfile As String

infile = App.Path & "\l.tif"


Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")
'AcroApp.Show
Call AVDoc.Open(infile, "")
Set AVDoc = AcroApp.GetActiveDoc
If AVDoc.IsValid Then

For i = 0 To 10
outfile = App.Path & "\" & i & "target.pdf"
Set PDDoc = AVDoc.GetPDDoc
If PDDoc.Save(1 Or 4 Or 32, outfile) <> True Then
strSuccessful = False
Else
strSuccessful = True
End If
Next i

PDDoc.Close
AVDoc.Close True
'AcroApp.Exit
Set PDDoc = Nothing
Set AVDoc = Nothing
Set AcroApp = Nothing

End If

End Sub



questo codice l'ho utilizzato per delle cose mie ... gestisciti da solo la routine ! Cmq fondamentalmente apri la tif con l'oggetto e lo salvi come pdf