Discussion :

[djelloharmel]

Bonjour.
Après plusieurs fouilles, j'ai réussi à construire ce code pour exporter automatiquement un état CrystalReport en pdf.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim bSql As String
        bSql = "select * from e_MoyenneGeneraleParPartie"
        Dim bTabRpt As DataTable
        Dim DSetRpt As DataSet
        Dim sqlCmd As New SqlCommand(bSql)
        Dim Dadpter As New SqlDataAdapter(sqlCmd)
        bTabRpt = New DataTable
        DSetRpt = New DataSet
        sqlCmd.Connection = sqlCONN
        Dadpter.Fill(DSetRpt, "e_MoyenneGeneraleParPartie")
 
 
        Dim oRpt As New ReportDocument
        oRpt.Load("D:\LGHI\BOTOSH\rp_moyenne_generale_partie.rpt")
        oRpt.SetDataSource(DSetRpt)
        oRpt.ExportToDisk(ExportFormatType.PortableDocFormat, "c:\Test.pdf")

Le code s'exécute jusqu'à la fin. Seulement, je ne vois pas le fichier "C:\Test.pdf"
Qu'est ce qui n'a pas marché dans le code

[djelloharmel]

Toujours en fouillant, j'ai eu plus simple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim oRpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        oRpt.Load("C:\...\MonEtatReport.rpt")
        oRpt.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, "C:\Test.pdf")

Mais, à l'exécution, j'ai le bug suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Le chemin d’accès spécifié est introuvable.

à cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRpt.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, "C:\Test.pdf")

Quelqu'un a-t-il une solution?

[Kyroon]

Bonjour,

heu ...

"C:\...\MonEtatReport.rpt"

Tu es sur de ça ?

Bonne continuation

[djelloharmel]

voilà tout le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim oRpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        oRpt.Load("C:\Test.rpt")
        oRpt.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, "C:\Test.pdf")

c'est à la dernière ligne que le message d'erreur apparait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Le chemin d’accès spécifié est introuvable.

N'y a-t-il pas une dll ou une référence à importer?
J'ai farfouillé partout sans rien trouvé.

[djelloharmel]

En fouillant, je suis tombé sur ce site qui m'a donné la solution: https://translate.googleusercontent....b0FelWkT_n1b7A

Merci beaucoup. Comme quoi, qui cherche trouve