Bonjour,
Suite à mon précédent poste:
http://www.developpez.net/forums/d14...s/#post8121093
Je souhaite générer un pdf du report créé.
Pour cela j'utilise ce code:
1 2 3 4 5 6 7 8 9 10 11 12 13
|
Public Sub SavePDF(ByVal viewer As ReportViewer, ByVal savePath As String)
Dim warnings As Warning() = Nothing
Dim streamids As String() = Nothing
Dim mimeType As String = Nothing
Dim encoding As String = Nothing
Dim extension As String = Nothing
Dim Bytes() As Byte = viewer.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
Using Stream As New FileStream(savePath, FileMode.Create)
Stream.Write(Bytes, 0, Bytes.Length)
End Using
End Sub |
Pour appeler la fonction j'utlise ce code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| Protected Sub GenererRapport(ParamIdmad As Integer, ParamIduser As Integer)
Dim Param1 As New ReportParameter
Dim Param2 As New ReportParameter
Param1.Name = "idmad"
Param2.Name = "iduser"
Param1.Values.Add(ParamIdmad)
Param2.Values.Add(ParamIduser)
ReportViewer1.LocalReport.SetParameters(New ReportParameter() {Param1})
ReportViewer1.LocalReport.SetParameters(New ReportParameter() {Param2})
ReportViewer1.DataBind()
ReportViewer1.LocalReport.Refresh()
SavePDF(ReportViewer1, Server.MapPath("tmp2/titi.pdf"))
End Sub |
ça ne marche pas; j'ai une erreur:
Impossible de créer un lecteur de données pour le dataset 'DataSetb'.
à la ligne :
Dim Bytes() As Byte = viewer.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
Est ce que vous avez une idée?
Merci
Partager