Reportes de CrystalReport

[Peterpay]

Private Sub Exportar(ByVal adjunto As String)
Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent

_sPathReporte = CType(configurationAppSettings.GetValue("PathRepor tes", GetType(System.String)), String) // esta linea es opcional pero seria bueno tener en tu app.config la ruta de los .rpt
rptDocument.Load(_sPathReporte & _Reporte & ".rpt")
rptDocument.SetDataSource(_dtTabla)
ReportViewer.ReportSource = rptDocument

Dim filedest As New CrystalDecisions.Shared.DiskFileDestinationOptions
Dim o As CrystalDecisions.Shared.ExportOptions
o = New CrystalDecisions.Shared.ExportOptions
o.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableD ocFormat
o.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.Disk File
filedest.DiskFileName = System.IO.Directory.GetCurrentDirectory() & "\" & adjunto & ".pdf"

o.ExportDestinationOptions = filedest.Clone
rptDocument.Export(o)

filedest = Nothing
o = Nothing
End Sub


solo conviertela a c# y listo