by Yelena Brusilovsky (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 18th May 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Save tiff file in pdf format.
'Save tiff file in pdf format. Need full Adobe Acrobat any version.
'Add Adobe Acrobat Type Library to References.
Dim bOK As Boolean
On Error GoTo errmsg
Dim avDoc As CAcroAVDoc
Dim pdDoc As CAcroPDDoc
Set avDoc = CreateObject("AcroExch.AVDoc")
bOK = avDoc.Open("C:\test.tif, "Adobe Acrobat")
Set pdDoc = avDoc.GetPDDoc
bOK = pdDoc.Save(1, "C:\test.pdf")
avDoc.Close (False)
Exit Sub
errmsg:
MsgBox Err.Description
End Sub