getting error Document has no page when convert into pdf

Tuman Sahu

6y1.5kLearn iOS Programming

I am using .net bind my data into gridview and wanted to convert grid data into pdf file.

but occure a error like Document has no page . My code is bellow .

"form1" runat="server">
"GridView1" HeaderStyle-BackColor="#3AC0F2" HeaderStyle-ForeColor="White"
RowStyle-BackColor="#A1DCF2" AlternatingRowStyle-BackColor="White" AlternatingRowStyle-ForeColor="#000"
runat="server" AutoGenerateColumns="false" OnPageIndexChanging="OnPageIndexChanging">
"btnExport" runat="server" Text="Export To PDF" OnClick = "ExportToPDF" />

Private Sub BindGrid()
Dim strConnString As String = ConfigurationManager.ConnectionStrings("safe").ConnectionString
Using con As New SqlConnection(strConnString)
Using cmd As New SqlCommand("select * from StudentDetails ")
Using sda As New SqlDataAdapter()
cmd.Connection = con
sda.SelectCommand = cmd
Using dt As New DataTable()
sda.Fill(dt)
GridView1.DataSource = dt
GridView1.DataBind()
End Using
End Using
End Using
End Using
End Sub
Protected Sub ExportToPDF(sender As Object, e As EventArgs) Handles btnExport.Click
Using sw As New StringWriter()
Using hw As New HtmlTextWriter(sw)
'To Export all pages
GridView1.AllowPaging = False
Me.BindGrid()
GridView1.RenderControl(hw)
Dim sr As New StringReader(sw.ToString())
'Dim pdfDoc As New Document(PageSize.A2, 10.0F, 10.0F, 10.0F, 0.0F)
Dim pdfdoc1 As New Document(PageSize.A4, 2.0F, 2.0F, 2.0F, 0.0F)
Dim htmlparser As New HTMLWorker(pdfdoc1)
PdfWriter.GetInstance(pdfdoc1, Response.OutputStream)
pdfdoc1.Open()
pdfdoc1.NewPage()
htmlparser.Parse(sr)
pdfdoc1.Close()
Response.ContentType = "application/pdf"
Response.AddHeader("content-disposition", "attachment;filename=GridViewExport.pdf")
Response.Cache.SetCacheability(HttpCacheability.NoCache)
Response.Write(pdfdoc1)
Response.[End]()
End Using
End Using
End Sub
Protected Sub OnPageIndexChanging(sender As Object, e As GridViewPageEventArgs) Handles GridView1.PageIndexChanging
GridView1.PageIndex = e.NewPageIndex
Me.BindGrid()
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub

Can any one help me to solve this error.

7 Replies

Know the answer? Post it — somebody with the same question will find it here.

Sapna Girish6y ago
Hi, you could try Spire.DataExport.

Here is a link for your reference:
https://www.e-iceblue.com/Tutorials/Spire.DataExport/Spire.DataExport-Program-Guide/How-to-Export-DataTable-to-PDF.html
0
Laxmidhar Sahoo6y ago
Hey down load iTextShapr from here
https://www.nuget.org/packages/iTextSharp/


Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports iTextSharp.text
Imports iTextSharp.text.html.simpleparser
Imports iTextSharp.text.pdf




Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    If Not IsPostBack Then
        Me.BindGrid()
    End If
End Sub

Private Sub BindGrid()
    Dim strConnString As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
    Using con As New SqlConnection(strConnString)
        Using cmd As New SqlCommand("SELECT * FROM Customers")
            Using sda As New SqlDataAdapter()
                cmd.Connection = con
                sda.SelectCommand = cmd
                Using dt As New DataTable()
                    sda.Fill(dt)
                    GridView1.DataSource = dt
                    GridView1.DataBind()
                End Using
            End Using
        End Using
    End Using
End Sub


'If intersted for paging


Protected Sub OnPageIndexChanging(sender As Object, e As GridViewPageEventArgs)
    GridView1.PageIndex = e.NewPageIndex
    Me.BindGrid()
End Sub





Protected Sub ExportToPDF(sender As Object, e As EventArgs)
    Using sw As New StringWriter()
        Using hw As New HtmlTextWriter(sw)
            'To Export all pages
            GridView1.AllowPaging = False
            Me.BindGrid()

            GridView1.RenderControl(hw)
            Dim sr As New StringReader(sw.ToString())
            Dim pdfDoc As New Document(PageSize.A2, 10.0F, 10.0F, 10.0F, 0.0F)
            Dim htmlparser As New HTMLWorker(pdfDoc)
            PdfWriter.GetInstance(pdfDoc, Response.OutputStream)
            pdfDoc.Open()
            htmlparser.Parse(sr)
            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 Using
    End Using
End Sub
+1
Thirumoorthy Lakshmanan6y ago
Hi Tuman,
Hope below links will help you.
https://www.c-sharpcorner.com/article/how-to-export-gridview-data-in-word-excel-and-pdf-format-using-asp-net/
aspsnippets.com/Articles/How-to-export-GridView-data-to-PDF-file-in-ASPNet.aspx
0
Tuman Sahu6y ago
Hi,

i followed both link and some changes in code according to given link but same thread.

https://stackoverflow.com/questions/5297881/the-document-has-no-pages

https://www.aspdotnet-suresh.com/2011/04/how-to-export-gridview-data-to-pdf.html
0
Rajeesh Menoth6y ago
Hi,

Try the following thread and example :

https://stackoverflow.com/questions/5297881/the-document-has-no-pages

https://www.aspdotnet-suresh.com/2011/04/how-to-export-gridview-data-to-pdf.html
0
Tuman Sahu6y ago
Hi,
Rajeesh Menoth

I have already checked that link and facing same issue.

0
Rajeesh Menoth6y ago
Hi,

Please check the following example :

https://www.c-sharpcorner.com/UploadFile/0c1bb2/export-gridview-to-pdf/
0

getting error Document has no page when convert into pdf

Hi,

Rajeesh Menoth