This is my code, don't have any error but page doesn't does nothing. I don't know where is the error, please help :O
Dim documentoPDF As New Document(PageSize.A4, 10, 10, 10, 10)
Dim memStream As MemoryStream = New MemoryStream()
Dim writer As PdfWriter = PdfWriter.GetInstance(documentoPDF, memStream)
documentoPDF.Open()
documentoPDF.Add(paragraph8)
writer.CloseStream = False
documentoPDF.Close()
Try
Dim bytesInStream As Byte() = memStream.ToArray()
Dim memorystreaam As MemoryStream = New MemoryStream(bytesInStream)
Response.Clear()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.AddHeader("content-length", bytesInStream.Length.ToString)
Response.AddHeader("content-disposition", "attachment;filename=Prueba.pdf")
Response.Buffer = True
Response.OutputStream.Write(bytesInStream, 0, bytesInStream.Length)
Response.Flush()
HttpContext.Current.ApplicationInstance.CompleteRequest()
Catch ex As Exception
mesg(ex.Message)
End Try
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa