【发布时间】:2016-05-04 03:57:13
【问题描述】:
我有这个名为 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? 谢谢
【问题讨论】: