以前發布的一篇教程曾經提到過怎樣將多頁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