張小芸的生活記事簿 δ

    Private Sub mergePDFFiles(ByVal fileList() As String, ByVal outMergeFile As String)
        outMergeFile = Server.MapPath(outMergeFile)
        Dim reader As PdfReader
        Dim document As Document = New Document()
        Dim writer As PdfWriter = PdfWriter.GetInstance( _
                                              document, New FileStream(outMergeFile, FileMode.Create))
        document.Open()
        Dim cb As PdfContentByte = writer.DirectContent
        Dim NewPage As PdfImportedPage
        Dim i As Integer
        For i = 0 To fileList.Length - 1 Step i + 1
            reader = New PdfReader(Server.MapPath(fileList(i)).ToString)
            Dim iPageNum As Integer = reader.NumberOfPages
            Dim j As Integer
            For j = 1 To iPageNum
                document.NewPage()
                NewPage = writer.GetImportedPage(reader, j)
                cb.AddTemplate(NewPage, 0, 0)
            Next
        Next
        Document.Close()
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
                                                   Handles Button1.Click
        Dim pdflist(1) As String
        pdflist(0) = "pdf/Qty1.pdf"
        pdflist(1) = "pdf/Qty2.pdf"
        mergePDFFiles(pdflist, "pdf/newpdf.pdf")
    End Sub

End Class