Créer PDF à partir reportviewer

Version imprimable

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:

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:

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 :

Code:

Dim Bytes() As Byte = viewer.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)

Est ce que vous avez une idée?

Merci

23/04/2015, 03h59
Abbé Assy

Normalement,l'outil reportviewer doit te proposer une option d'export vers un fichier de type PDF,Word ou excel.8-)

bonjour voici un bout de code , il reste plus qu'a adapter a ton cas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
        '
        ' dans les references ne pas oublier 
        '        microsoft.reportviewer.winforms
        '
 
        Dim RP As New Microsoft.Reporting.WinForms.ReportViewer
        Dim deviceInfo As String
        Dim mimeType As String = Nothing
        Dim encoding As String = Nothing
        Dim extension As String = Nothing
        Dim streamids() As String = Nothing
        Dim warnings() As Microsoft.Reporting.WinForms.Warning = Nothing
 
        RP.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
        RP.LocalReport.ReportPath = "C:\WindowsApplication1\Report1.rdlc"
        RP.RefreshReport()
        deviceInfo = ""
       Dim tmpbytes() As Byte = RP.LocalReport.Render("PDF", deviceInfo, mimeType, encoding, extension, streamids, warnings)
 
        Dim fs As New System.IO.FileStream("c:\test.pdf", System.IO.FileMode.Create)
        fs.Write(tmpbytes, 0, tmpbytes.Length)
        fs.Close()