iTextSharp - 另请参阅第二页

Question

我是新来的。我正在编写一个程序并使用itextsharp。我想导入各种文件，然后保存它们。不幸的是，我不明白，第二页是阅读。第一页kappt super的编辑。这里是我的代码：

 If ComboBox1.SelectedItem = "DPD" Then 


     Dim oldFile As String = "templates/dpd-schadenformular.pdf" 
     Dim newFile As String = "output/DPD-Output.pdf" 

     ' Create reader 
     Dim reader As New PdfReader(oldFile) 
     Dim size As Rectangle = reader.GetPageSizeWithRotation(1) 
     Dim document As New Document(size) 

     ' Create the writer 
     Dim fs As New FileStream(newFile, FileMode.Create, FileAccess.Write) 
     Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs) 
     document.Open() 
     Dim cb As PdfContentByte = writer.DirectContent 

     ' Set the font, color and size properties for writing text to the PDF 
     Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.CP1252, BaseFont.NOT_EMBEDDED) 
     cb.SetColorFill(BaseColor.DARK_GRAY) 
     cb.SetFontAndSize(bf, 8) 

     ' Write text in the PDF 
     cb.BeginText() 

     Dim kundennummer As String = "Kundennummer " & Form3.dpdkdnr.Text 

     Dim trackid1 As String = track1.Text 
     Dim trackid2 As String = track2.Text 

     Dim descr As String = beschreibungschaden.Text 
     Dim warenart As String = paketinhalt.Text 

     Dim empfnam As String = empfnamebox.Text 
     Dim empfstr As String = empfstrbox.Text 
     Dim empfplz As String = empfplzbox.Text 





     ' Set the alignment and coordinates here 
     cb.ShowTextAligned(1, kundennummer, 360, 638, 0) 

     cb.ShowTextAligned(1, trackid1, 336, 685, 0) 
     cb.ShowTextAligned(1, trackid2, 430, 685, 0) 

     cb.ShowTextAligned(1, descr, 150, 135, 0) 
     cb.ShowTextAligned(1, warenart, 90, 235, 0) 

     cb.ShowTextAligned(1, empfnam, 370, 441, 0) 
     cb.ShowTextAligned(1, empfstr, 370, 416, 0) 
     cb.ShowTextAligned(1, empfplz, 370, 381, 0) 



     cb.EndText() 

     ' Put the text on a new page in the PDF 
     Dim page As PdfImportedPage = writer.GetImportedPage(reader, 1) 
     cb.AddTemplate(page, 0, 0) 

     ' Close the objects 
     document.Close() 
     fs.Close() 
     writer.Close() 
     reader.Close() 


     ' ----------------------------------------------- 
     ' ----------------------------------------------- 
     ' --------------------- DPD Ende ---------------- 
     ' ----------------------------------------------- 
     ' ----------------------------------------------- 

    End If 

关于方法，解决方案或帮助，我会真的很高兴，谢谢你提前

莫里斯

Answer 1

下面是我用它来添加新的页面的方法目的地文件。

'myarray is the document to be added, mydoc is the document added to 

Public Function AdddbFiletoDoc(myarray() As Byte, mydoc As Document, mywriter As PdfWriter, mycb As PdfContentByte) 
    Dim myreader As New PdfReader(myarray) 
    Dim numofPages As Integer = myreader.NumberOfPages, mypage As PdfImportedPage 
    Dim currpage As Integer = 0 
    Do While currpage < numofPages 
     currpage += 1 
     mydoc.SetPageSize(PageSize.A4) 
'You can add a flag to the method to determine if you want a new page or not 
     mydoc.NewPage() 
     mypage = mywriter.GetImportedPage(myreader, currpage) 
     mycb.AddTemplate(mypage, 1.0F, 0, 0, 1.0F, 0, 0) 
    Loop 

End Function