如何把.aspx页面转换成pdf？没有使用从网站的url

Question

我需要从.aspx创建一个pdf，但不使用wkHtmlToPdf或iTextSharp，因为他们需要网页的URL，它不适合我，因为我在我的网站有安全当我尝试打印该网站时，它会将我发送到默认页面。

有人知道我该怎么做？

预先感谢您。

Answer 1

我使用EvoPdf，所以我的解决方案将与您的解决方案有所不同，但我遇到了使用表单身份验证的应用程序（不幸的是，）与vb.net相同的问题。我的解决方案如下。关键是将Pdf库的cookie设置为经过身份验证的帐户的Cookie。

Private Sub uiPdf_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles uiPdf.Click 

    Dim urlToConvert As String = "ExportPdf.aspx" 

    '// get the html string for the report 
    Dim htmlStringWriter As New System.IO.StringWriter() 
    Server.Execute(urlToConvert, htmlStringWriter) 
    Dim htmlCodeToConvert As String = htmlStringWriter.GetStringBuilder().ToString() 
    htmlStringWriter.Close() 


    '// Create the PDF converter. 
    Dim pdfConverter As New EvoPdf.HtmlToPdf.PdfConverter() 

    '************ 
    'Add the cookie so we don't get bounced to the home page 
    '************ 
    If Not Request.Cookies(System.Web.Security.FormsAuthentication.FormsCookieName) Is Nothing Then 
     pdfConverter.HttpRequestCookies.Add(System.Web.Security.FormsAuthentication.FormsCookieName, Request.Cookies(System.Web.Security.FormsAuthentication.FormsCookieName).Value) 
    End If 

    '// set the license key - required 
    pdfConverter.LicenseKey = ConfigurationManager.AppSettings("EvoPdfLicenseKey") 

    '// set the converter options - optional 
    '... code omitted 

    '// be saved to a file or sent as a browser response 
    Dim baseUrl As String = HttpContext.Current.Request.Url.AbsoluteUri 
    Dim pdfBytes As Byte() = pdfConverter.GetPdfBytesFromHtmlString(htmlCodeToConvert, baseUrl) 

    '// send the PDF document as a response to the browser for download 
    Dim response As System.Web.HttpResponse = System.Web.HttpContext.Current.Response 
    Response.Clear() 
    Response.AddHeader("Content-Type", "application/pdf") 
    response.AddHeader("Content-Disposition", String.Format("attachment; filename=GettingStarted.pdf; size={0}", pdfBytes.Length.ToString())) 
    response.BinaryWrite(pdfBytes) 
    response.End() 


End Sub