How to create multiple page PDF from multiple images
Posted: Wed Jul 02, 2008 10:01 am
Hi Loïc!
Can you show a sample code?
Thanks,
Irab
Can you show a sample code?
Thanks,
Irab
Community Forums
https://www.gdpicture.com:443/forum/
Code: Select all
nImageID = imiPDF.TiffCreateMultiPageFromFile("file1.jpg")
imiPDF.TiffAppendPageFromFile(nImageID, "file2.jpg")
imiPDF.TiffAppendPageFromFile(nImageID, "file3.jpg")
imiPDF.CreateImageFromFile("multipage_tif.tif")
Call imiPDF.PdfCreateFromMultipageTIFF(nImageID, "multipage.pdf")
imiPDF.CloseImage(nImageID)
Code: Select all
Dim nCpt As Long
Dim nImageCount As Long
Imaging1.PdfNewPdf ("multipage.pdf")
Imaging1.PdfAddImageFromFile ("image1.jpg")
Imaging1.PdfAddImageFromFile ("image2.jpg")
Imaging1.PdfAddImageFromFile ("image3.jpg")
nImageCount = 3
For nCpt = 1 To nImageCount
Call Imaging1.PdfSetPageDimensions(Imaging1.PdfGetImageWidth(nCpt), Imaging1.PdfGetImageHeight(nCpt))
Call Imaging1.PdfNewPage
Call Imaging1.PdfDrawImage(nCpt, 0, 0, Imaging1.PdfGetImageWidth(nCpt), Imaging1.PdfGetImageHeight(nCpt))
Call Imaging1.PdfEndPage
Next nCpt
Imaging1.PdfSavePdf
Code: Select all
oImaging.PdfNewPdf(sFileName,...);
if (File.Exists(...) == true)
{
oImaging.PdfAddImageFromFile(...);
iCount += 1;
}
sImageCounter = iCount.ToString();
for (var i = 1; i < iCount; i++)
{
oImaging.PdfSetCompressionLevel(8);
oImaging.PdfSetPageDimensions(oImaging.PdfGetImageWidth(i), oImaging.PdfGetImageHeight(i));
oImaging.PdfNewPage();
oImaging.PdfDrawImage(i, 0, 0, oImaging.PdfGetImageWidth(i), oImaging.PdfGetImageHeight(i));
oImaging.PdfEndPage();
}
oImaging.PdfSavePdf();
which should've been:for (var i = 1; i < iCount; i++)
Still... thanks for the reply Loïc!for (var i = 1; i <= iCount; i++)