|
Here, we open a TIFF file using the Image object. We then scan
through each of the images within the file and insert them into a
new page of our PDF document.
Set theDoc = Server.CreateObject("ABCpdf13.Doc")
Set theImg = Server.CreateObject("ABCpdf13.Image")
theImg.SetFile "c:\mypics\multipage.tif"
For i = 1 To theImg.FrameCount
theImg.Frame = i
theDoc.Page = theDoc.AddPage()
theDoc.AddImageObject theImg, False
Next
theDoc.Save "c:\mypdfs\imageframe.pdf"

imageframe.pdf [Page 1]

imageframe.pdf [Page 2]
|