1
2
3
4
5
6
7
8
9

   Dim DC As Object : DC = CreateObject("Neevia.docCreator")

   DC.mergeMultipleTIFF("d:\file1.tif+d:\file2.tif+d:\file3.tif", "d:\out.tif")
   DC.convertImage("d:\out.tif", "d:\out.pdf")
   DC.fileDelete("d:\out.tif")

   DC = Nothing

   MsgBox("Done converting!!!")