彩票走势图

以前发布的一篇教程曾经提到过怎样将多页TIFF文件转换成PDF文件，但是那种方法只适用于整个多页TIFF文件的转换，作为上一篇教程的补充，本文将要给出的是如何将多页TIFF文件的一部分转换成PDF的具体示例。

>>>下载GdPicture.NET

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Imaging1 As New GdPicture.GdPictureImaging
        Call Imaging1.SetLicenseNumber("XXX") 'Please, replace XXXX by a valid demo or commercial license key. 
        'Go to //evaluation-gdpicture.com to get a 1 month trial key unlocking all features of the toolkit.

        Imaging1.TiffOpenMultiPageForWrite(False)
        Dim ImageID As Integer = Imaging1.CreateGdPictureImageFromFile("c:\multipage.tif")
        Dim PdfID As Integer = Imaging1.PdfNewPdf("c:\multipage.pdf", True) 'True for creating PDF/A compliant. Use False for non PDF/A
        Dim ImageCount As Integer = 0
        Dim ImageHeight, ImageWidth As Single

        'We add desired pages to the PDF
        For i As Integer = 1 To Imaging1.TiffGetPageCount(ImageID)
            If i <> 1 And i <> 3 Then ' We don't want page 1 & 3
                Imaging1.TiffSelectPage(ImageID, i)
                Imaging1.PdfAddImageFromGdPictureImage(PdfID, ImageID)
                ImageCount += 1
            End If
        Next i

        Imaging1.ReleaseGdPictureImage(ImageID) 'We can now release the multipage tiff from the memory

        'Now drawing all images of the PDF on individual pages
        For p As Integer = 1 To ImageCount
            ImageHeight = Imaging1.PdfGetImageHeight(PdfID, p)
            ImageWidth = Imaging1.PdfGetImageWidth(PdfID, p)
            Imaging1.PdfNewPage(PdfID, ImageWidth, ImageHeight)
            Imaging1.PdfDrawImage(PdfID, p, 1, 1, ImageWidth, ImageHeight)
        Next

        Imaging1.PdfEndPdf(PdfID) 'Closing PDF

        MsgBox("Done !")
    End Sub