Pour pouvoir Faire la conversion d'un fichier en .TIF en .PDF il faut obligatoirement posséder Adobe Acrobat ( mais pas la version Reader )
Das les référence du projet il suffit de cocher :
Adobe Acrobat 4.0 Type Library
(4.0 c'est ma version !!!)
Pour tous commentaire envoyez moi un mail..
Source / Exemple :
Private Sub ConvPDF(filename As String)
'Filename est le nom complet Ex: "C:\........ .TIF"
Dim AcroApp As CAcroApp
Dim AVDoc As CAcroAVDoc
Dim PDDoc As CAcroPDDoc
Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")
Call AVDoc.Open(filename, "")
Set AVDoc = AcroApp.GetActiveDoc
If AVDoc.IsValid Then
Set PDDoc = AVDoc.GetPDDoc
PDDoc.SetInfo "Title", "Mettre un Titre"
PDDoc.SetInfo "Author", "Mettre un Auteur"
PDDoc.SetInfo "Subject", "Mettre un Sujet"
PDDoc.SetInfo "Keywords", "Mettre un mot Clef"
If PDDoc.Save(1 Or 4 Or 32, Mid(filename, 1, Len(filename) - 4) & ".pdf") <> True Then
MsgBox "Impossible d'utiliser le fichier " & filename
End If
PDDoc.Close
End If
'Ferme le PDF
AVDoc.Close True
AcroApp.Exit
'Remise à Zéro d'élèment
Set PDDoc = Nothing
Set AVDoc = Nothing
Set AcroApp = Nothing
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.