In this article we will know how to export
gridview data to pdf format. For that we need itextsharp.dll file. Get it fromhttp://sourceforge.net/projects/itextsharp/ .
Table structure
![Tabble-in-SQL-Server.gif]()
First add the itextsharp.dll file into the
application as click solution explorer- Right click on your application file-Add
reference-On browse tab search the itextsharp.dll file from your computer-Click
ok-Finish. Then you will notice that a Bin folder will be created where you will
find itextsharp.dll file present inside that folder.
Program
Default.aspx code
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD
XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled
Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
<asp:GridView ID="GridView1" runat="server" BackColor="#FFFF99"
Font-Bold="True" ForeColor="Red">
<HeaderStyle BackColor="#66FFFF" Font-Bold="True" ForeColor="#CC3300" />
<AlternatingRowStyle BackColor="#FFCC99" />
</asp:GridView>
<asp:Button ID="Button1" runat="server" Text="Export
to Pdf" />
</form>
</body>
</html>
Default.aspx.vb code
Imports System.Data
Imports System.Data.SqlClient
Imports iTextSharp.text.pdf
Imports iTextSharp.text.html
Imports iTextSharp.text.html.simpleparser
Imports System.IO
Imports iTextSharp.text
Partial Class _Default
Inherits System.Web.UI.Page
Dim strConnString As String =
System.Configuration.ConfigurationManager.ConnectionStrings.Item("ConnectionString").ToString()
Dim con As New SqlConnection(strConnString)
Dim str As String
Dim com As SqlCommand
Dim sqlda As SqlDataAdapter
Dim ds As DataSet
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
con.Open()
str = "select
* from student"
com = New SqlCommand(Str,
con)
Dim reader As SqlDataReader
reader = com.ExecuteReader()
GridView1.DataSource = reader
GridView1.DataBind()
con.Close()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/pdf"
Response.AddHeader("content-disposition", "attachment;filename=student.pdf")
Response.Cache.SetCacheability(HttpCacheability.NoCache)
Dim StringWriter1 As New StringWriter()
Dim HtmlTextWriter1 As New HtmlTextWriter(StringWriter1)
GridView1.RenderControl(HtmlTextWriter1)
Dim StringReader1 As New StringReader(StringWriter1.ToString())
Dim newDocument As New Document(PageSize.A4,
7.0F, 7.0F, 7.0F, 7.0F)
Dim HTMLWorker1 As New HTMLWorker(newDocument)
PdfWriter.GetInstance(newDocument, Response.OutputStream)
newDocument.Open()
HTMLWorker1.Parse(StringReader1)
newDocument.Close()
Response.Write(newDocument)
Response.End()
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control
End Sub
End Class
Output
![Export-to-PDF-in-VB.net.gif]()