PDF mit iTextSharp erstellen und drucken lassen mit bestimmten Druckereinstellungen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von dotdev.

    PDF mit iTextSharp erstellen und drucken lassen mit bestimmten Druckereinstellungen

    Hallo,

    bin dabei mit iTextSharp ein eine PDF-Datei (Etikett) zu generieren und dann mit bestimmten Einstellungen für den Etikettendrucker drucken zu lassen.Die PDF wird erfolgreich generiert, jedoch weiß ich nicht wie ich es hinbekomme diese auch gleich drucken zu lassen mit bestimmten Druckeinstellungen (z.b. Länge). Die PDF wird nicht abgespeichert sondern nur für den Browser generiert.

    Ich stell mir das so vor:

    Button "Jetzt Drucken" wird geklickt -> PDF wird generiert -> an Drucker XY mit Druckeinstellungen Länge = 3cm gesenden -> Drucken

    Hier mein Code bist jetzt (habe einige Dinge rausgelassen wie z.B. Datenbank auslesen)

    VB.NET-Quellcode

    1. Imports iTextSharp.text
    2. Imports iTextSharp.text.pdf
    3. Imports System.IO
    4. Imports System.Web.UI.WebControls
    5. Imports System
    6. Imports System.Object
    7. Imports System.Data
    8. Imports System.Data.SqlClient
    9. Imports System.Drawing
    10. Imports System.Drawing.Printing
    12. Partial Class _Default
    13. Inherits System.Web.UI.Page
    15. Dim Verbindung As String
    16. Dim myRowData As DataRow
    18. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    19. Response.Buffer = True
    20. Response.Clear()
    21. Response.ClearContent()
    22. Response.ClearHeaders()
    23. Response.ContentType = "application/pdf"
    25. 'Die Größe des PDF-Dokuments setzt sich aus points zusammen. Dabei gilt 72 points = 1 inch = 2,54 cm
    26. Dim Document As New Document(New iTextSharp.text.Rectangle(176.0F, 69.0F), 0, 0, 0, 0)
    27. Dim Writer As PdfWriter
    28. Writer = PdfWriter.getInstance(Document, Response.OutputStream)
    31. 'Daten aus Datenbank holen, um sie in der PDF anzuzeigen
    32. 'ausgeblendet
    34. Try
    35. Document.Open()
    36. 'Erzeuge Tabelle
    37. Dim Tabelle1 As PdfPTable
    38. Tabelle1 = New PdfPTable(2)
    39. Dim Logo As PdfPCell
    41. 'Größe der Tabelle definieren
    42. Tabelle1.WidthPercentage = 100
    43. Tabelle1.DefaultCell.Border = 0
    44. Tabelle1.DefaultCell.FixedHeight = Document.PageSize.Height / 2
    45. 'Anordnung innerhalb der Zellen definieren
    46. Tabelle1.DefaultCell.VerticalAlignment = Element.ALIGN_MIDDLE
    47. Tabelle1.DefaultCell.HorizontalAlignment = Element.ALIGN_CENTER
    49. 'Deklarieren des Images
    50. Dim img As iTextSharp.text.Image = iTextSharp.text.Image.getInstance("C:\Documents ..\logo.jpg")
    51. img.scaleToFit(85.0F, 22.0F)
    53. 'Zelle oben links
    54. Logo = New PdfPCell(img)
    55. Logo.VerticalAlignment = Element.ALIGN_MIDDLE
    56. Logo.HorizontalAlignment = Element.ALIGN_CENTER
    57. Logo.Border = Tabelle1.DefaultCell.Border
    58. Tabelle1.addCell(Logo)
    60. 'Zelle oben rechts
    61. Dim phBarcode As Phrase
    62. Dim fntBarcode As iTextSharp.text.Font
    63. Dim bfBarcode As BaseFont
    64. bfBarcode = BaseFont.createFont("C:\..\IDAutomationHC39M.ttf", BaseFont.CP1252, True)
    65. fntBarcode = New iTextSharp.text.Font(bfBarcode, 10, iTextSharp.text.Font.NORMAL)
    67. phBarcode = New Phrase("1234", fntBarcode)
    68. Dim cellBarcode As New PdfPCell(phBarcode)
    69. cellBarcode.VerticalAlignment = Element.ALIGN_MIDDLE
    70. cellBarcode.HorizontalAlignment = Tabelle1.DefaultCell.HorizontalAlignment
    71. cellBarcode.FixedHeight = Tabelle1.DefaultCell.FixedHeight
    72. cellBarcode.Border = Tabelle1.DefaultCell.Border
    74. Tabelle1.addCell(cellBarcode)
    76. Tabelle1.DefaultCell.VerticalAlignment = Element.ALIGN_TOP
    77. Tabelle1.DefaultCell.HorizontalAlignment = Element.ALIGN_CENTER
    79. 'Zelle unten links
    80. Dim phSN1 As Phrase
    81. Dim phDate1 As Phrase
    82. Dim para3 As Paragraph = New Paragraph
    83. Dim fntBoldText1 As iTextSharp.text.Font = FontFactory.getFont("Arial", 12, iTextSharp.text.Font.BOLD)
    84. Dim fntSmallText1 As iTextSharp.text.Font = FontFactory.getFont("Arial", 10, iTextSharp.text.Font.NORMAL)
    86. phSN1 = New Phrase("HOST " + Constants.vbNewLine, fntBoldText1)
    87. phDate1 = New Phrase("Bezeichnung", fntSmallText1)
    88. para3.Add(phSN1)
    89. para3.Add(phDate1)
    91. Tabelle1.addCell(para3)
    94. 'Zelle unten rechts (Serial Nummer)
    95. Dim phSN As Phrase
    96. Dim phDate As Phrase
    97. Dim para4 As Paragraph = New Paragraph
    98. Dim fntSmallText As iTextSharp.text.Font = FontFactory.getFont("Arial", 8, iTextSharp.text.Font.NORMAL)
    100. phSN = New Phrase("S/N: " + "SerienNR" + Constants.vbNewLine, fntSmallText)
    101. phDate = New Phrase("Datum", fntSmallText)
    102. para4.Add(phSN)
    103. para4.Add(phDate)
    105. Tabelle1.addCell(para4)
    108. Document.Add(Tabelle1)
    109. Finally
    110. Document.Close()
    111. End Try
    112. End Sub
    113. End Class


    Hoffe ihr könnt mir helfen, hab einen Tag lang gegooglet und nichts gefunden wie es gehen könnte :(
    Mfg

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „biowarrior“ ()

    Habe jetzt folgendes gefunden:

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Drawing.Printing
    4. Partial Class _Default
    5. Inherits System.Web.UI.Page
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. Dim pd As New Printing.PrintDocument
    9. 'sub zum drucken einhängen
    10. AddHandler pd.PrintPage, AddressOf PrintPage
    11. pd.Print()
    12. End Sub
    14. Public Sub PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
    15. e.Graphics.DrawString("mein testdruck", New Font("Arial", 20, FontStyle.Regular, GraphicsUnit.Pixel), Brushes.Black, New Point(10, 10))
    17. End Sub
    18. End Class


    Jetzt muss nur nioch anstatt "mein testdruck" die generierte PDF Datei gedruckt werden. Kann ich das dort iwie einfügen oder auf die PDF Datei verweisen?

    Zudem muss noch der drucker XY ausgewählt werden. Mit diesem Code wird nur mit demStandartdrucker gedruckt..



    Jemand ne idee?



    mfg