0
SSRSレポートをPDF形式(または他のポータブル形式)で自動的に取得したいと考えています。私はユーザーがボタンを押すと、レポートビューでレポートを表示する代わりに、PDFに変換する必要があります。SSRSレポートをpdf形式で公開する
可能であれば、私にVb.Netコードを教えてください。
何か助けが歓迎されます!
ありがとうございました
SSRSレポートをPDF形式(または他のポータブル形式)で自動的に取得したいと考えています。私はユーザーがボタンを押すと、レポートビューでレポートを表示する代わりに、PDFに変換する必要があります。SSRSレポートをpdf形式で公開する
可能であれば、私にVb.Netコードを教えてください。
何か助けが歓迎されます!
ありがとうございました
このコードを試してください。
Private Sub GenerateReport(ParamList as hashtable)
rs.Credentials = System.Net.CredentialCache.DefaultCredentials
rsExec.Credentials = System.Net.CredentialCache.DefaultCredentials
Dim historyID As String = Nothing
Dim deviceInfo As String = Nothing
Dim format As String = "PDF"
Dim results As Byte()
Dim encoding As String = String.Empty
Dim mimeType As String = String.Empty
Dim extension As String = String.Empty
Dim warnings As ReportExecution.Warning() = Nothing
Dim streamIDs As String() = Nothing
Dim filename As String = "C:\MyReport.pdf" ' Change to where you want to save
Dim _reportName As String = "/Sales/MyReport" ' Change to be your report
Dim _historyID As String = Nothing
Dim _forRendering As Boolean = False
Dim _values As ReportingService.ParameterValue() = Nothing
Dim _credentials As ReportingService.DataSourceCredentials() = Nothing
Dim _parameters As ReportingService.ReportParameter() = Nothing
_parameters = rs.GetReportParameters(_reportName, _historyID, _forRendering, _values, _credentials)
Dim ei As ReportExecution.ExecutionInfo = rsExec.LoadReport(_reportName, historyID)
Dim parameters(_parameters.Length - 1) As ReportExecution.ParameterValue
for param as integer = 0 to _parameters.count - 1
parameters(param) = New ReportExecution.ParameterValue
parameters(param).Label = _parameters(param).name
parameters(param).Name = _parameters(param).name
parameters(param).Value = ParamList(param)
next
rsExec.SetExecutionParameters(parameters, "en-us")
results = rsExec.Render(format, deviceInfo, extension, mimeType, encoding, warnings, streamIDs)
Dim stream As New System.IO.FileStream(filename, IO.FileMode.OpenOrCreate)
stream.Write(results, 0, results.Length)
stream.Close()
End Sub
ok、ありがとうございます!私はそれを待つだろう。 –
私のためにコードを見つける機会がありましたか? –