User661479005 posted
Hi joeller
Yes - I got it work like that:
Here is part of the file where the pdf is
Sub prepare_pdf()
Dim sb As New StringBuilder()
Dim tw As New StringWriter(sb)
Dim hw As New HtmlTextWriter(tw)
panelPDF.RenderControl(hw)
Dim htmlDisplayText As String = sb.ToString()
session("pdfpanel") = htmlDisplayText
session("rotatepdf") = False
session("pdflinebreak") = False
imgbPdf.Attributes.add("onclick","var w=window.open('/windows/pdfpanel.aspx?doc=logininformation.pdf','panelpdf','width=700,height=800');w.focus();return false;")
End Sub
<asp:Panel runat="server" ID="panelPdf" Visible="false" >
<asp:Label runat="server" ID="lblMyPdfInformation" />
</asp:Panel>
This is the file that create the pdf:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" %>
<%@ import namespace="System.Data "%>
<%@ import namespace="System.Data.sql "%>
<%@ import namespace="MySql.Data.MySqlClient "%>
<%@ import namespace="System.Collections"%>
<%@ import namespace="System.Configuration"%>
<%@ import namespace="System.Linq"%>
<%@ import namespace="System.Web.Security"%>
<%@ import namespace="System.IO"%>
<%@ import namespace="System.Xml"%>
<%@ import namespace="System.Text"%>
<%@ import namespace="System.Xml.Linq"%>
<%@ import namespace="iTextSharp.text"%>
<%@ import namespace="iTextSharp.text.pdf"%>
<%@ import namespace="iTextSharp.text.html"%>
<%@ import namespace="iTextSharp.text.html.simpleparser"%>
<%@ Import Namespace="functionLibrary" %>
<!--#include virtual="/includes/alert.aspx" -->
<script runat="server">
Dim verdanaHeader As Font
Sub Page_Load(Src As Object, E As EventArgs)
if fl.authpop() then
verdanaHeader = FontFactory.GetFont("Verdana", 11)
open_pdf()
End if
End Sub
Sub open_pdf()
Dim document As Document
If session("rotatepdf") = True Then
document = New Document(PageSize.A4.Rotate(), 30.0F, 10.0F, 10.0F, 10.0F)
Else
document = New Document(PageSize.A4, 50.0F, 10.0F, 10.0F, 10.0F)
End if
' Dim document As New Document(PageSize.A4, 50.0F, 10.0F, 10.0F, 10.0F)
Dim ms As New MemoryStream()
Dim writer As PdfWriter = PdfWriter.GetInstance(document, ms)
Dim strHTML as string = session("pdfpanel")
Dim arrAdresser as arrayList
strHTML = change_html(strHTML,"<img"," src=""",true)
strHTML = change_html(strHTML,"<a"," href=""",false)
document.Open()
Try
' se om der skal adresser på
If session("pdfadressestring") <> ""
arrAdresser = new arrayList(fl.stringToArray(session("pdfadressestring"),"|"))
For i = 0 to arrAdresser.count -1
Dim se As New StringReader(strHTML)
Dim obj As New HTMLWorker(document)
Dim strChunk as string = vbcrlf & vbcrlf & vbcrlf & vbcrlf & arrAdresser(i).ToString & vbcrlf & vbcrlf
If i = 0 Then strChunk = vbcrlf & strChunk
Dim myAddress as new Chunk(strChunk, verdanaHeader)
Dim pAddress as new Phrase(myAddress)
document.Add(pAddress)
obj.Parse(se)
document.NewPage()
Next
Else
If session("pdflinebreak") = True Then
Dim strLinebreak() as string = split(strHTML,"pdflinebreak")
For i = 0 to Ubound(strLinebreak)
Dim se As New StringReader(strLinebreak(i))
Dim obj As New HTMLWorker(document)
obj.Parse(se)
document.NewPage()
Next
Else
Dim se As New StringReader(strHTML)
Dim obj As New HTMLWorker(document)
obj.Parse(se)
End if
End if
document.Close()
Response.Clear()
Response.AddHeader("content-disposition", "attachment; filename=" & request.QueryString("doc"))
Response.ContentType = "application/pdf"
Response.Buffer = True
Response.OutputStream.Write(ms.GetBuffer(), 0, ms.GetBuffer().Length)
Catch ex as exception ' hvis der er fejl vis html-siden istedet for
response.write(strHTML)
Finally
Response.End()
End Try
session("pdfadressestring") = ""
End Sub
Function change_html(strHTML as string,strTag1 as string,strTag2 as string,blnTag as boolean) as string
Dim strNewHTML as string = ""
Dim splitHTML() as string = split(strHTML,strTag1)
If Ubound(splitHTML) > 0 Then
Dim strPath,strNewPath as string
Dim lenHTML,lenFile,lenTag as integer
For i as integer = 0 to Ubound(splitHTML) -1
If i=0 Then strNewHTML += splitHTML(i)
lenHTML = len(splitHTML(i+1))
Dim splitFile() as string = split(splitHTML(i+1),">")
If Ubound(splitFile) > 0 Then
lenFile = len(splitFile(0))
lenTag = len(strTag1) + lenFile + 1 ' 1 er dette sluttag >
Dim splitSrc() as string = split(splitFile(0),strTag2)
If Ubound(splitSrc) > 0 Then
Dim splitPath() as string = split(splitSrc(1),"""")
If Ubound(splitPath) > 0 Then
strPath = splitPath(0)
End if
End if
End if
If strPath <> "" Then
Try
strNewPath = server.MapPath(Replace(strPath,fl.fullSystemURL,""))
Catch ' går i fejl hvis det ikke er en virtual path
end Try
'indsæt <br /> inden tag idet billede altid ligger for højt og næsten overskriver den sidste tekst
If blnTag = true Then ' hvis der ønskes tag for denne control f.eks. images
strNewHTML += "<br />" & strTag1 & replace(splitFile(0),strPath,strNewPath) & ">" & Right(splitHTML(i+1),(lenHTML + len(strTag1))-lenTag)
Else ' hvis der ikke ønskes tag som f.eks.link
strNewHTML += Replace( Right(splitHTML(i+1),lenHTML-(lenFile +1)) ,"</a>","")
End if
Else strNewHTML = splitHTML(i) & strTag1 & splitHTML(i+1)
End if
Next
Else strNewHTML = strHTML
End if
return strNewHTML
End Function
</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>printervenlig PDF</title>
</head>
<body>
</body>
</html>
<script>
<asp:Literal id="ltlAlert" runat="server"
EnableViewState="False">
</asp:Literal>
</script>
Hope it will help
