Exporting Crystal Report to PDF?

[oxbow123]

Does anyone has the code to do that ?

Dim FrmAccuse As New FormCrystalReport()
Dim Rpt As New AccuseIncomplet()
 
Rpt.SetDataSource(DSDossier1)
FrmAccuse.CrystalReportViewer1.ReportSource = Rpt
 
 
FrmAccuse.ShowDialog()
FrmAccuse.CrystalReportViewer1.ExportReport() '???????

I just want to save the curent report to "xyz.PDF"

Thanks