• Home
 · 
• Miscellaneous
 · 
• Save tiff file in pdf format.

Save tiff file in pdf format.

Save tiff file in pdf format.

Rate Save tiff file in pdf format.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    '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