Bonjour à tous,
Je viens une nouvelle fois solliciter votre aide. Je rencontre en effet un problème lors de l'export d'un état crystal vers un PDF.
Plus précisemment, j'ai développé une application sous vb.net. Une fonction de cette application permet de générer un état crystal report, de l'exporter vers un fichier pdf et de l'envoyer ensuite par mail.
Sur mon poste de développement, cette partie fonctionne très bien. Mon état est généré, l'exportation est correcte et l'envoi de mail fonctionne. Lorsque j'ouvre le fichier joint du mail, je retrouve bien mon fichier pdf.
Je rencontre un problème sur les postes clients où j'ai installé l'application.
le fichier pdf est bien généré et envoyé par mail. Par contre lorsque j'essaie d'ouvrir la pièce jointe, ou directement le fichier pdf sur le poste client, j'obtiens le message d'erreur suivant :
Je ne vois absolument pas d'où peux provenir le problème. J'ai recherché sur différents forums, mais hélas je ne trouve aucune piste.Détection d'une marque non reconnue : 0,05
J'espère que vous pourrez m'aidez du moins à avancer sur une piste.
Pour info, voici le code que j'utilise pour faire l'esport de mon état vers un fichier PDF :
Je vous remercie par avance de toute l'aide que vous pourrez m'apporter.
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
18
19
20
21
22
23
24 Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared 'Déclaration de mon état crystal reports MonEtat = New CAClientMensuel datedebut = "01/" & Microsoft.VisualBasic.Right("00" + Month(DateAdd(DateInterval.Month, -1, Now)), 2) & "/" & Year(Now) datefin = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, datedebut)) Reqsql = "STATS_CA_CLIENT_MENSUEL_FACTURATION '" & datedebut & "','" & datefin & "'" MyDa = Bdd.ExecuteQuery(Reqsql, 0) MyDa.Fill(MyDs, "CaClientMensuel") MonEtat.SetDataSource(MyDs) MonEtat.SetParameterValue("type", "sur facturation") Filename = Environment.GetEnvironmentVariable("temp") & "\ca_nbvehicules_client_mensuel.pdf" CrystalDiskFileDestinationOptions = New DiskFileDestinationOptions CrystalDiskFileDestinationOptions.DiskFileName = Filename CrystalExportOptions = MonEtat.ExportOptions With CrystalExportOptions .ExportDestinationType = ExportDestinationType.DiskFile .ExportFormatType = ExportFormatType.PortableDocFormat .DestinationOptions = CrystalDiskFileDestinationOptions End With MonEtat.Export()
@++
Partager