iTextSharp - 2. Seite einlesen???

  • VB.NET

    iTextSharp - 2. Seite einlesen???

    Hallo liebe Gemeinde, ich bin neu hier und hoffe, dass jemand mir helfen kann.
    ich bin dabei derzeit ein kleines tool zu programmieren, dass pdf templates einliest und diese mit werten aus textboxen usw versieht. im anschluss speichert er mir die bearbeitete pdf ab.
    als dll nutze ich iTextSharp, das funktioniert auch super, nur leider kriege ich von meinem templates lediglich die erste seite eingelesen. folgende seiten werden einfach abgeschnitten.
    nun meine frage, wie bekomme ich es hin, dass das ganze dokument eingelesen wird?

    hier mein code:

    VB.NET-Quellcode

    1. ​
    2. If ComboBox1.SelectedItem = "DPD" Then
    4. Dim oldFile As String = "templates/dpd-schadenformular.pdf"
    5. Dim newFile As String = "output/DPD-Output.pdf"
    7. ' Create reader
    8. Dim reader As New PdfReader(oldFile)
    9. Dim size As Rectangle = reader.GetPageSizeWithRotation(1)
    10. Dim document As New Document(size)
    12. ' Create the writer
    13. Dim fs As New FileStream(newFile, FileMode.Create, FileAccess.Write)
    14. Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
    15. document.Open()
    16. Dim cb As PdfContentByte = writer.DirectContent
    18. ' Set the font, color and size properties for writing text to the PDF
    19. Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
    20. cb.SetColorFill(BaseColor.DARK_GRAY)
    21. cb.SetFontAndSize(bf, 8)
    23. ' Write text in the PDF
    24. cb.BeginText()
    26. Dim kundennummer As String = "Kundennummer " & Form3.dpdkdnr.Text
    28. Dim trackid1 As String = track1.Text
    29. Dim trackid2 As String = track2.Text
    31. Dim descr As String = beschreibungschaden.Text
    32. Dim warenart As String = paketinhalt.Text
    34. Dim empfnam As String = empfnamebox.Text
    35. Dim empfstr As String = empfstrbox.Text
    36. Dim empfplz As String = empfplzbox.Text
    38. ' Set the alignment and coordinates here
    39. cb.ShowTextAligned(1, kundennummer, 360, 638, 0)
    41. cb.ShowTextAligned(1, trackid1, 336, 685, 0)
    42. cb.ShowTextAligned(1, trackid2, 430, 685, 0)
    44. cb.ShowTextAligned(1, descr, 150, 135, 0)
    45. cb.ShowTextAligned(1, warenart, 90, 235, 0)
    47. cb.ShowTextAligned(1, empfnam, 370, 441, 0)
    48. cb.ShowTextAligned(1, empfstr, 370, 416, 0)
    49. cb.ShowTextAligned(1, empfplz, 370, 381, 0)
    51. cb.EndText()
    53. ' Put the text on a new page in the PDF
    54. Dim page As PdfImportedPage = writer.GetImportedPage(reader, 1)
    55. cb.AddTemplate(page, 0, 0)
    57. ' Close the objects
    58. document.Close()
    59. fs.Close()
    60. writer.Close()
    61. reader.Close()
    63. ' -----------------------------------------------
    64. ' -----------------------------------------------
    65. ' --------------------- DPD Ende ----------------
    66. ' -----------------------------------------------
    67. ' -----------------------------------------------
    69. End If


    Hoffe jemand kann mir helfen, danke im Voraus

    Beste Grüße

Facebook
Telefonspende