Dim nImageID As Long
nImageID = AxImaging1.TiffCreateMultiPageFromFile("C:\Images\Able Test Dockets.tif")
AxImaging1.PdfNewPdfEx("C:\Images\Test.pdf")
AxImaging1.PdfAddImageFromGdPictureImage(nImageID)
AxImaging1.PdfSavePdf()
AxImaging1.TiffCloseNativeMultiPage()
Dim nImageID As Long
Dim PdfImageIdx as Long
nImageID = AxImaging1.TiffCreateMultiPageFromFile("C:\Images\Able Test Dockets.tif")
AxImaging1.PdfNewPdfEx("C:\Images\Test.pdf")
PdfImageIdx = AxImaging1.PdfAddImageFromGdPictureImage(nImageID)
AxImaging1.PdfSetPageDimensions(AxImaging1.PdfGetImageWidth(PdfImageId ), AxImaging1.PdfGetImagheight(PdfImageIdx))
AxImaging1.PdfNewPage
AxImaging1.PdfDrawImage(1, 1, 1, AxImaging1.PdfGetImageWidth(PdfImageIdx), AxImaging1.PdfGetImagheight(PdfImageIdx))
AxImaging1.PdfEndPage
AxImaging1.PdfSavePdf()
AxImaging1.TiffCloseNativeMultiPage()Return to GdPicture [Pro] ActiveX
Users browsing this forum: No registered users and 1 guest