Imports System
Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Partial Class prova_pdf
    Inherits System.Web.UI.Page

    Sub creapdf()
        Dim fs As System.IO.FileStream = New FileStream((Server.MapPath("pdf") + ("\\" + "First PDF document.pdf")), FileMode.Create)
        Dim document As Document = New Document(PageSize.A4, 25, 25, 30, 30)
        Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
        document.AddAuthor("Micke Blomquist")
        document.AddCreator("Sample application using iTextSharp")
        document.AddKeywords("PDF tutorial education")
        document.AddSubject("Document subject - Describing the steps creating a PDF document")
        document.AddTitle("The document title - PDF creation using iTextSharp")
        document.Open()
        document.Add(New Paragraph("Hello World!"))
        document.Close()
        writer.Close()
        fs.Close()
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        creapdf()

    End Sub
End Class