PARA PODER EXPORTAR UN GRIDVIEW A PDF SE NECESITA UNA LIBRERA LLAMADA
[Link], PARA PODER UTILIZARLA SE TIENE QUE AGREGAR UNA REFERENCIA HACIA ESTE
ARCHIVO CON extensin dll para agregar una referencia hacer los siguiente:
1.-ir a menu proyecto y hacer click en agregar referencia
2.-en la ventana que se visualiza dar click en el botn examinar y buscar la librera [Link]
El archivo a referenciar se vera de la siguiente manera
Despus de dar click en aceptar aparecer en el administrador de referencias y volver a dar click
en aceptar
Ya referenciado podremos utilizar la librera de la siguiente manera en nuestra aplicacin lo
primero que tenemos que hacer es importar de la siguiente manera
Imports
Imports
Imports
Imports
Imports
Imports
iTextSharp
[Link]
[Link]
[Link]
[Link]
[Link]
Imports [Link]
Imports [Link]
Y vamos a utilizar un componente asp llamado ImageButton
Y en su propiedad ImageUrl buscar una imagen para que aparesca.
Por ejemplo una imagen que haga referencia a que se puede descargar un pdf
Ahora en el evento click del ImageButton (para que aparezca el evento dar doble click sobre el
componente) vamos a crear los siguiente para que exporte a pdf un gridview
Protected Sub ImageButton1_Click(sender As Object, e As ImageClickEventArgs) Handles
[Link]
[Link]()
[Link] = "application/pdf"
[Link]("content-disposition", "attachment; filename=[Link]")
[Link]([Link])
Dim StringWriter As New StringWriter()
Dim htmlTextWriter As New HtmlTextWriter(StringWriter)
[Link] = False
'[Link] = False
'[Link] = False
[Link]("font-size", "8px")
[Link]()
[Link](htmlTextWriter)
Dim stringReader As New StringReader([Link]())
Dim pdfDoc As New Document([Link], 10, 10, 20, 100)
Dim htmlWorker As New HTMLWorker(pdfDoc)
[Link](pdfDoc, [Link])
[Link]()
'-------Dim fonteTitulo As New Font([Link]("Verdana", 12,
[Link]))
[Link](0, 0, 0)
Dim titulo As New Chunk("UNIVERSIDAD DEL SURESTE DE MEXICO", fonteTitulo)
Dim frase As New Phrase(titulo)
Dim p As New Paragraph()
[Link] = Element.ALIGN_CENTER
[Link](frase)
[Link](p)
Dim ciclo As New Chunk("CICLO ESCOLAR: 2011-2012", fonteTitulo)
Dim ciclofrase As New Phrase(ciclo)
Dim p4 As New Paragraph()
[Link] = Element.ALIGN_CENTER
[Link](ciclofrase)
[Link](p4)
Dim periodo As New Chunk("PERIODO ESCOLAR: AGOSTO - DICIEMBRE 2013",
fonteTitulo)
Dim periodofrase As New Phrase(periodo)
Dim p5 As New Paragraph()
[Link] = Element.ALIGN_CENTER
[Link](periodofrase)
[Link](p5)
Dim titulo2 As New Chunk("BOLETA DE CALIFICACIONES", fonteTitulo)
Dim frase2 As New Phrase(titulo2)
Dim p2 As New Paragraph()
[Link] = Element.ALIGN_CENTER
[Link](frase2)
agregarLineasEnBlanco(p2, 0.5)
[Link](p2)
'-------Dim grupo As New Chunk([Link], fonteTitulo)
Dim grupofrase As New Phrase(grupo)
Dim grupo1 As New Chunk([Link], fonteTitulo)
Dim grupofrase1 As New Phrase(grupo1)
Dim semestre As New Chunk([Link], fonteTitulo)
Dim semestrefrase As New Phrase(semestre)
Dim semestre1 As New Chunk([Link], fonteTitulo)
Dim semestrefrase1 As New Phrase(semestre1)
Dim matricula As New Chunk([Link], fonteTitulo)
Dim matriculafrase As New Phrase(matricula)
Dim matricula1 As New Chunk([Link], fonteTitulo)
Dim matriculafrase1 As New Phrase(matricula1)
Dim nombre As New Chunk([Link], fonteTitulo)
Dim nombrefrase As New Phrase(nombre)
Dim nombre1 As New Chunk([Link], fonteTitulo)
Dim nombrefrase1 As New Phrase(nombre1)
Dim p3 As New Paragraph()
[Link](grupofrase)
[Link](grupofrase1)
[Link]("
")
[Link](semestrefrase)
[Link](semestrefrase1)
[Link]("
")
[Link](matricula)
[Link](matricula1)
[Link]("
")
[Link](nombre)
[Link](nombre1)
agregarLineasEnBlanco(p3, 0.5)
[Link](p3)
'-------[Link](stringReader)
[Link]()
[Link](pdfDoc)
[Link]()
End Sub
Crear el siguiente procedimiento
Public Overloads Overrides Sub VerifyRenderingInServerForm(ByVal control As
Control)
Return
End Sub
Tambier crear el siguiente procedimiento
Private Sub agregarLineasEnBlanco(parrafo As Paragraph, nLineas As Integer)
'Dim parrafo As New Paragraph
Dim i As Integer
For i = 0 To nLineas
[Link](New Paragraph(" "))
Next
End Sub
