http://sourceforge.net/projects/itextsharp/

using iTextSharp.text;
using iTextSharp.text.pdf;


public static void Main(string[] args)
        {

           
            //creation of a document-object
            Document document = new Document();

            try
            {

               
                // we create a writer that listens to the document
                // and directs a PDF-stream to a file

                PdfWriter.GetInstance(document, new FileStream("D:\\pdfcreated\\file.pdf", FileMode.Create));

                //add some metadata and open the document

                document.AddTitle("dotnet spider");

                document.AddKeywords("Metadata abcd");
                
                document.AddAuthor("your name");
                
                document.Open();

                // add a paragraph to the document
                document.Add(new Paragraph("Hello World"));

            }
            catch (DocumentException de)
            {
                Console.Error.WriteLine(de.Message);
            }
            catch (IOException ioe)
            {
                Console.Error.WriteLine(ioe.Message);
            }

            //close the document
            document.Close();
        
        }

Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim ds As New DataSet

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            '  ShowGridview()
        End If
    End Sub
     
    Sub ShowGridview()
        'bind the database values to Gridveiw using dataset control
        Dim con As SqlClient.SqlConnection
        Dim da As SqlDataAdapter

        Dim str As String
        str = "USER=UserID;PASSWORD=PASSWORD;SERVER=SERVER-Name;DATABASE=DATABASE-Name"
        con = New SqlConnection(str)
        da = New SqlDataAdapter("select FieldName1,FieldName2 from Table_Name", con)
        da.Fill(ds, "Employee")
        ViewState("DataSetValue") = ds
        grvGrid.DataSource = ds
        grvGrid.DataBind()
        con.Close()

    End Sub
    Private Sub ConvertGridviewToPdfDocument(ByVal dstHeader2 As DataSet)
        Dim doc As Document = New Document
        PdfWriter.GetInstance(doc, New FileStream(Request.PhysicalApplicationPath + "\3.pdf", FileMode.Create))
        doc.Open()
        Dim table As New PdfPTable(dstHeader2.Tables(0).Columns.Count)
        Dim widths As Integer() = {25, 25}
        table.WidthPercentage = "100"
        For i As Integer = 0 To dstHeader2.Tables(0).Columns.Count - 1
            Dim ColumnHeader As New Paragraph(dstHeader2.Tables(0).Columns(i).ColumnName.ToString(), FontFactory.GetFont("verdana", 11))
            ColumnHeader.Font.SetStyle(Font.BOLD)
            Dim cell As New PdfPCell(New Phrase(ColumnHeader))
            cell.HorizontalAlignment = Element.ALIGN_CENTER
            table.AddCell(cell)
        Next

        For k As Integer = 0 To dstHeader2.Tables(0).Rows.Count - 1
            For j As Integer = 0 To dstHeader2.Tables(0).Columns.Count - 1
                Dim ColumnValue As New Paragraph(dstHeader2.Tables(0).Rows(k)(j).ToString(), FontFactory.GetFont("verdana", 10))
                table.AddCell(ColumnValue)
            Next
        Next
        table.SetWidths(widths)
        doc.Add(table)
        doc.Add(New Paragraph(vbLf))
        doc.Close()
        Response.Redirect("~/3.pdf")
    End Sub
    
    Protected Sub btnConvertGridviewToPDF_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConvertGridviewToPDF.Click
        'ConvertGridviewToPdfDocument(ViewState("DataSetValue"))
        Dim str As String = ""
        Dim doc As Document = New Document
        PdfWriter.GetInstance(doc, New FileStream(FileUpload1.PostedFile.FileName, FileMode.Create))
        'string strFileNameWithPath = FileUpload1.PostedFile.FileName;
        doc.Open()
        doc.Close()

    End Sub
End Class