Thanks For Your reply Benson Yu
I found a free tool to make a pdf , though the task is to convert a html page into PDF, I got a free tool to make a new pdf in asp.net using
iTextSharp (http://channel9.msdn.com/ShowPost.aspx?PostID=120461_ and its working now, where the pdf page is deigned in server side code.
Dim m As New MemoryStream()
Dim document As New Document(PageSize.A4.Rotate(), 10, 10, 10, 10)
Try
Response.ContentType =
"application/pdf"
PdfWriter.GetInstance(document, m)
document.Open()
PdfWriter.GetInstance(document, New FileStream("Chap0501.pdf", FileMode.Create))
' step 3: we open the document
document.Open()
Dim strBuilder As New StringBuilder
strBuilder.Append(
"GLASGOW - De Britse politie zoekt maandageen zesde verdachte in verband met de drieaanslagpogingen")strBuilder.Append("in Londen en Glasgow van hetvoorbije weekend. Het terreuralarm in Groot-")
strBuilder.Append(
"Brittannië blijft intussen hoog. De Britse autoriteiten")strBuilder.Append("zouden moeite hebben met het vaststellen van de identiteit van verdachten. Sky")
strBuilder.Append(
"News en verscheidene Britse kranten meldden")strBuilder.Append("dat er bij de verdachten artsen zijn die in Britse")
strBuilder.Append(
"ziekenhuizen werken.")Dim helvetica As BaseFont = BaseFont.CreateFont("Helvetica", BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
Dim font As New Font(helvetica, 12, font.NORMAL)Dim chunk As New Chunk(" this is an example dto dfgsdfg sdfg sdfg sdfg sd fg sdfg sdfg sdfg sd fg asdnkfklsdfg sdfg dfg sdfg fgjjhklcvbnxcvbnfg dfghfdgh", font)
document.Add(chunk)
document.Add(New Paragraph(strBuilder.ToString))Dim jpeg As Image = Image.GetInstance(New Uri("http://localhost:4548/TPGTest/j1.bmp"))
jpeg.Alignment = jpeg.Right
document.Add(jpeg)
Dim jpeg2 As Image = Image.GetInstance(New Uri("http://localhost:4548/TPGTest/j2.bmp"))
jpeg2.Alignment = jpeg2.Left
document.Add(jpeg2)
Dim strBuilder2 As New StringBuilder
strBuilder2.Append(
"De Britse politie zou de verdachten van de aanslag op de luchthaven")strBuilder2.Append("van Glasgow al op het spoor geweest zijn vlak voordat zij")
strBuilder2.Append(
"zaterdag hun mislukte aanslag pleegden. Dit heeft de woordvoerder")strBuilder2.Append("van een particulier woningverhuurbedrijf, Let-In, in Glasgow")
strBuilder2.Append(
"maandag gezegd. Een of meerdere verdachten verbleven in een woning van Let-In.")document.Add(New Paragraph(strBuilder2.ToString))document.Add(New Paragraph("Yet another test"))
'Dim helvetica As BaseFont = BaseFont.CreateFont("Helvetica", BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
'Dim font As New Font(helvetica, 22, font.NORMAL)
'Dim chunk As New Chunk(" this is an example dto dfgsdfg sdfg sdfg sdfg sd fg sdfg sdfg sdfg sd fg asdnkfklsdfg sdfg dfg sdfg fgjjhklcvbnxcvbnfg dfghfdgh", font)
'document.Add(chunk)
Catch ex As DocumentException
Console.[Error].WriteLine(ex.StackTrace)
Console.[Error].WriteLine(ex.Message)
End Try
' step 5: Close document
document.Close()
' step 6: Write pdf bytes to outputstream
Response.OutputStream.Write(m.GetBuffer(), 0, m.GetBuffer().Length)
Response.OutputStream.Flush()
Response.OutputStream.Close()