使用 iTextSharp 将创建的 PDF 页面附加到现有 PDF 文件

Question

我目前正在创建（我认为应该是的）一个非常简单的方法来附加两个 PDF 文件。

首先，我的方法创建了一个页面，其中包含所有客户详细信息作为数字签名。我可以正常工作并保存到单页 PDF 文件中。

但是，我现在想将他们签署的条款和条件附加到 PDF 的底部。我正在编写的解决方案使用 VB.NET，但如果您愿意，可以在 C# 中提供答案，因为我对两者都很熟悉。我真的无法理解 iTextSharps 流程。

这是我目前的代码：

Public Sub CreateDocument() Handles btnCreate.ServerClick

    Dim path As [String] = Server.MapPath("PDFs")
    Dim document As New Document()
    Dim writer As PdfWriter = PdfWriter.GetInstance(document, New FileStream(path + "/" + _AccountNo + "-RegAgreement.pdf", FileMode.Create))

    'Removed chunk of code here, just defining content chunks and paragraphs
     for the dynamically created page, left in the construction
     part which you can see below'


    'Construct digitally signed agreement page'
    document.Open()
    document.NewPage()
    document.Add(pHeader)

    table.SpacingBefore = 30.0F
    table.SpacingAfter = 60.0F
    document.Add(table)

    pAgreement.SpacingAfter = 20.0F
    document.Add(pAgreement)

    document.Add(pSignedBy)
    document.Add(imgSig)
    document.Add(pFooter1)
    document.Add(pFooter2)
    document.Add(pFooter3)

    writer.Close()
    document.Close()

现在这是我添加到上述子文件末尾以附加 PDF 的位。据我所知，您需要使用 PdfCopy 将信息从 PDF 传输到新的 Document 对象（在本例中为 doc）。但是，我找不到将这些添加到动态创建的 PDF 的方法。

有没有办法在复印机中打开它，然后从第 2 页开始复印？

    Dim terms As New PdfReader(path + "/termsconditions.pdf")
    Dim doc As New Document()
    Dim copier As New PdfCopy(doc, New FileStream(path + "/" + _accountNo + "-RegAgreement2.pdf", FileMode.Create))

    'Append Ts & Cs'
    For i As Integer = 1 To terms.NumberOfPages
        Dim importedPage As PdfImportedPage = copier.GetImportedPage(terms, i)
        copier.AddPage(importedPage)
    Next

    terms.Close()
    terms.Close()

End Sub

到目前为止，我看到的每个解决方案都使用了不同的方法，例如页戳或内存流，但它们都没有奏效或给我所需的结果。

非常感谢任何帮助！

更新

好的，在@mkl 的建议之后，我现在将动态生成的文档带回给阅读器，但是它返回一个空值，表明 .PDF 是空白的，但事实并非如此。 （我的目录中有文件，所有内容都填满了）

        Dim copier As New PdfCopy(document, New FileStream(path + "/" + _distNo + "-RegAgreement2.pdf", FileMode.OpenOrCreate))
    Dim reader As New PdfReader(path + "/" + _distNo + "-RegAgreement.pdf")

    'retrieve dynamic document
    Dim dynamicPage As PdfImportedPage = copier.GetImportedPage(reader, 1)
    copier.AddPage(dynamicPage)

    'Append Ts & Cs
    For i As Integer = 1 To terms.NumberOfPages
        Dim importedPage As PdfImportedPage = copier.GetImportedPage(terms, i)
        copier.AddPage(importedPage)
    Next

这是因为它是在同一个子程序中完成的吗？

Answer 1

已解决，非常感谢 @mkl 在此问题上。

我面临的问题是因为我没有为复印机创建要写入的 Document 对象。

    Dim doc As New Document()
    Dim copier As New PdfCopy(doc, New FileStream(path + "/" + _distNo + "-RegAgreement.pdf", FileMode.Create))
    'Open PDF created earlier in subroutine'
    Dim reader As New PdfReader(path + "/" + _distNo + "-Signed.pdf")

    doc.Open()
    'Copy first (And only) page of dynamic PDF'
    Dim dynamicPage As PdfImportedPage = copier.GetImportedPage(reader, 1)
    copier.AddPage(dynamicPage)

    'Append Ts & Cs'
    For i As Integer = 1 To terms.NumberOfPages
        Dim importedPage As PdfImportedPage = copier.GetImportedPage(terms, i)
        copier.AddPage(importedPage)
    Next

    doc.Close()
    terms.Close()
    reader.Close()
    copier.Close()

    'For temporary purposes, delete local file'
    'This will be done in output stream in end release'
    File.Delete(path + "/" + _distNo + "-Signed.pdf")

感谢各位的帮助。我想我现在已经掌握了 iTextSharp 这个东西的基本程序！