User66371569 posted
My gridview is
<asp:GridView ID="GridView1" runat="server" Width="551px">
</asp:GridView>
code is
Dim conTest As New SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("DBCS").ToString())
Dim dt As New DataTable
Dim cmaa2 As New SqlCommand("select empno ,empname ,nationality,operationid from Hpdcampsrmoves where moveid =" & "1" & "", conTest)
cmaa2.Connection = conTest
cmaa2.CommandType = CommandType.Text
conTest.Open()
If cmaa2.ExecuteNonQuery Then
Dim dr2 As SqlDataReader
dr2 = cmaa2.ExecuteReader
dt.Load(dr2)
GridView1.DataSource = dt
GridView1.DataBind()
GridView1.Visible = True
conTest.Close()
Protected Sub btnExportPDF_Click(sender As Object, e As EventArgs) Handles btnExportPDF.Click
GridView1.AllowPaging = False
GridView1.DataBind()
Dim bf As BaseFont = BaseFont.CreateFont(Environment.GetEnvironmentVariable("windir") + "\fonts\Arial.ttf", BaseFont.IDENTITY_H, True)
Dim table As New iTextSharp.text.pdf.PdfPTable(GridView1.Columns.Count)
Dim widths As Integer() = New Integer(GridView1.Columns.Count - 1) {}
For x As Integer = 0 To GridView1.Columns.Count - 1
widths(x) = CInt(GridView1.Columns(x).ItemStyle.Width.Value)
Dim cellText As String = Server.HtmlDecode(GridView1.HeaderRow.Cells(x).Text)
'Set Font and Font Color
Dim font As New iTextSharp.text.Font(bf, 10, iTextSharp.text.Font.NORMAL)
font.Color = New Color(GridView1.HeaderStyle.ForeColor)
Dim cell As New iTextSharp.text.pdf.PdfPCell(New Phrase(12, cellText, font))
'Set Header Row BackGround Color
cell.BackgroundColor = New Color(GridView1.HeaderStyle.BackColor)
'Important for Arabic, Persian or Urdu Text
cell.RunDirection = PdfWriter.RUN_DIRECTION_RTL
table.AddCell(cell)
Next
table.SetWidths(widths)
For i As Integer = 0 To GridView1.Rows.Count - 1
If GridView1.Rows(i).RowType = DataControlRowType.DataRow Then
For j As Integer = 0 To GridView1.Columns.Count - 1
Dim cellText As String = Server.HtmlDecode(GridView1.Rows(i).Cells(j).Text)
'Set Font and Font Color
Dim font As New iTextSharp.text.Font(bf, 10, iTextSharp.text.Font.NORMAL)
font.Color = New Color(GridView1.RowStyle.ForeColor)
Dim cell As New iTextSharp.text.pdf.PdfPCell(New Phrase(12, cellText, font))
'Set Color of row
If i Mod 2 = 0 Then
'Set Row BackGround Color
cell.BackgroundColor = New Color(GridView1.RowStyle.BackColor)
End If
'Important for Arabic, Persian or Urdu Text
cell.RunDirection = PdfWriter.RUN_DIRECTION_RTL
table.AddCell(cell)
Next
End If
Next
'Create the PDF Document
Dim pdfDoc As New Document(PageSize.A4, 10.0F, 10.0F, 10.0F, 0.0F)
PdfWriter.GetInstance(pdfDoc, Response.OutputStream)
pdfDoc.Open()
pdfDoc.Add(table)
pdfDoc.Close()
Response.ContentType = "application/pdf"
Response.AddHeader("content-disposition", "attachment;filename=GridViewExport.pdf")
Response.Cache.SetCacheability(HttpCacheability.NoCache)
Response.Write(pdfDoc)
Response.[End]()
End Sub
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
' Verifies that the control is rendered
End Sub
Protected Sub GridView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView1.SelectedIndexChanged
End Sub
when I run and want to convert to pdf error appears in this line
Dim table As New iTextSharp.text.pdf.PdfPTable(GridView1.Columns.Count) " The number of columns in PdfPTable constructor must be greater than zero."
Error in converting gridview to pdf
