Jobs
Author: Yelena Brusilovsky Date Submitted: 5/18/2005 Category: Other Compatibility: VB 6 This code has been accessed 6891 times.
Email Yourself this snippet:
'No Declaration
Code
Private Sub Command1_Click() '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
