1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| 'Déclaration des variables documents
Dim document = New Document(PageSize.A4, 50, 50, 25, 25)
Dim output = New MemoryStream()
Dim writer = PdfWriter.GetInstance(document, output)
Dim table = New PdfPTable(2)
'Ouverture du document
document.Open()
Response.Clear()
'Ajout du contenu
'Fermeture du document
document.Close()
'Génération de l'enregistrement
Response.ContentType = "application/pdf"
Response.AddHeader("Content-Disposition", String.Format("attachment;filename=Receipt-{0}.pdf", btn_test.Text))
Response.BinaryWrite(output.ToArray())
Response.End() |