Ver Mensaje Individual
  #7 (permalink)  
Antiguo 04/04/2010, 11:16
AlterElt
 
Fecha de Ingreso: febrero-2010
Mensajes: 63
Antigüedad: 14 años, 10 meses
Puntos: 0
Respuesta: iTextSharp, ayuda con cabecera de documento PDF, me está volviendo loco xD

Bueno, ahí va la solución:

Hay que hacerlo con PageEvents a partir de la versión 5.0 de iTextSharp. Bajo mi punto de vista lo han hecho más complejo de trabajar, pero más potente. En definitiva, aquí va un ejemplo:

Código vb:
Ver original
  1. Imports iTextSharp.text.pdf
  2. Imports iTextSharp.text
  3. Imports System.IO
  4. Module Module1
  5.     Sub Main()
  6.         Dim pdfDoc As New Document()
  7.         Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("tryme2.pdf", FileMode.Create))
  8.         Dim ev As New itsEvents
  9.         pdfWrite.PageEvent = ev
  10.         pdfDoc.Open()
  11.         pdfDoc.Add(New Paragraph("Hello World"))
  12.         pdfDoc.NewPage()
  13.         pdfDoc.Add(New Paragraph("Hello World Again"))
  14.         pdfDoc.Close()
  15.     End Sub
  16. End Module
  17.  
  18. Public Class itsEvents
  19.     Inherits PdfPageEventHelper
  20.     Public Overrides Sub OnStartPage(ByVal writer As iTextSharp.text.pdf.PdfWriter, ByVal document As iTextSharp.text.Document)
  21.         Dim ch As New Chunk("This is my Stack Overflow Header on page " & writer.PageNumber)
  22.         document.Add(ch)
  23.     End Sub
  24. End Class