Question

我有这个名为StampaSingola的功能：

Private Sub StampaSingola()
        Dim rpt As New rptLettera
        CType(rpt.DataSource, SqlDBDataSource).SQL = "Select * from vwLettere WHERE IdLettera IN (" & Request.QueryString("IdLettera") & ")"

    rpt.Run(False)

    If Not rpt Is Nothing Then
        Dim exp As New PdfExport
        ' Create a new memory stream that will hold the pdf output
        Dim memStream As New System.IO.MemoryStream
        ' Export the report to PDF:
        exp.Export(rpt.Document, memStream)
        exp.Dispose()
        exp = Nothing

        With Me.Context.Response
            .Buffer = True
            .ContentType = "application/pdf"
            .AddHeader("content-disposition", "attachment; filename=Archilet_Lettera_" & Request.QueryString("IdLettera") & ".pdf;")
            .BinaryWrite(memStream.ToArray)
            .Flush()
            .End()
        End With

        rpt.Document.Dispose()
        rpt.Dispose()
        rpt = Nothing
    End If
End Sub

如何在新的浏览器标签中打开pdf？谢谢

Answer 1

创建新页面以供下载＆＃34; download.aspx＆＃34;
将代码移至＆＃34; download.aspx＆＃34;中的page_load事件页。
在第一页的button_click事件中输入以下代码：

protected void btnDownload_Click（object sender，EventArgs e） { Response.Write（string.Format（＆＃34; window.open（＆＃39; {0}＆＃39;，＆＃39; _blank＆＃39;）;＆＃34;，＆＃34; download.aspx＆＃34））; }

在新浏览器Tab ASP.NET中打开.pdf文件

1 个答案: