Code Samples - Neevia docCreator

Example 9: Convert a TIFF file into PDF - Visual Basic Copy 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
   Dim documentToConvert : documentToConvert="c:\users\public\test.tif"

   Dim DC : Set DC = CreateObject("Neevia.docCreator")

   Dim RVal : RVal = DC.ConvertImage(documentToConvert, documentToConvert & ".pdf")
   Set DC = Nothing

   If (RVal <> 0) Then 
     MsgBox "Error converting image !!!"
   else
     MsgBox "Done converting!!!"
   End If