Moin, habe nach langen hin und er damit begonnen ein Tool für die Internt IT Abteilung bei mir in der Firma zu programmieren.
soweit läuft auch alles bis auf eines:
in den Checkliste zur Einrichtung von Geräten soll automatisch im Header Links oben das firmenlogo erscheinen auf den PDF's die beim Speichern generiert werden sollen.
Die Chekliste an sich bekomme ich hin das die generiert wird. Verzweifel aber gerade daran das Logo einzupflegen.
vielleicht hat einer von euch eine Zündende Idee. anbei den Codeschnipsel von der erstellung des PDF header:
soweit läuft auch alles bis auf eines:
in den Checkliste zur Einrichtung von Geräten soll automatisch im Header Links oben das firmenlogo erscheinen auf den PDF's die beim Speichern generiert werden sollen.
Die Chekliste an sich bekomme ich hin das die generiert wird. Verzweifel aber gerade daran das Logo einzupflegen.
vielleicht hat einer von euch eine Zündende Idee. anbei den Codeschnipsel von der erstellung des PDF header:
VB.NET-Quellcode
- 'PDF Deklaration
- Dim newFile As String = pfad & "\" & "Checkliste_ADM_DE_" & DateTime.Now.Day & "." & DateTime.Now.Month & "." & DateTime.Now.Year & ".pdf"
- Dim pdfdoc As New Document()
- Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfdoc, New FileStream(newFile, FileMode.Create))
- 'PDF Header Deklarieren
- Dim img As Object = My.Resources.ResourceManager.GetObject("logo")
- Dim image As itextsharp.text.Image = itextsharp.text.Image.GetInstance(img)
- 'PDF Erstellen
- pdfdoc.Open()
- 'Schriftart festlegen
- Dim fontpath As String = "C:\Windows\fonts"
- Dim bf As BaseFont = BaseFont.CreateFont(fontpath &
- "arial.ttf", BaseFont.CP1252, BaseFont.EMBEDDED)
- Dim ffont As New Font(bf, 10)
- Dim table1 As New PdfPTable(3)
- Dim cell1 As New PdfPCell(New Phrase("IT Department"))
- cell1.Colspan = 12
- cell1.HorizontalAlignment = 1
- cell1.Border = 0
- table1.AddCell(image)
- table1.AddCell(cell1)
- pdfdoc.Add(table1)
- pdfdoc.Add(New Paragraph(" "))
- pdfdoc.Close()