Discussion :

[speed034]

salut a tous
je chercher a exporter mon rpt via vb.
biensur il faut que tout ce fasse automatiquement , sans aucun message de confirmation.

J'ai vu la fonction : .ExportOptions.PDFExportAllPages

si vous connaissez je suis prenante!!

merci d'avance

++speed

[speed034]

Puisqu'entre temps j'ai trouvé la soluc, je la marque peut etre que ca pourra aider quelques personnes (enfin j'espere)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
//-------normal
Dim Crystal As New CRAXdDRT.Application
Dim rep(90) As New CRAXdDRT.Report
 
Set rep(i) = Crystal.OpenReport(vPathEtat & TabModele(i) & ".rpt", 1)
//--normal
 
 
//export
rep(i).ExportOptions.DestinationType = crEDTDiskFile
rep(i).ExportOptions.DiskFileName = "C:\dossier\nomdu.pdf"
rep(i).ExportOptions.FormatType = crEFTPortableDocFormat
//export

++speed