I put my code inside a FOR to display several pages according to its count. It turns out that it shows only the last page, not all that it should.
For s = 0 To 9
html = "<p> "& s & "</p>"
'PDF
Using reader As TextReader = New StringReader(html)
Dim pdfwrite As PdfWriter = PdfWriter.GetInstance(document, Response.OutputStream)'
document.Open()
document.NewPage()'
XMLWorkerHelper.GetInstance().ParseXHtml(pdfwrite, document, reader)
End Using
next
document.close()
'Visualiza
Dim resp As HttpResponse = Me.Response
resp.ContentType = "application/pdf"
resp.AddHeader("Content-Disposition", "filename=sigov" & Now.Day & Now.Month & Now.Year & Now.Second & ".pdf")