[الكاتب]

كود :

Try
                                        Dim CrExportOptions As ExportOptions
                                        Dim CrDiskFileDestinationOptions As New _
                                        DiskFileDestinationOptions()
                                        Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
                                        CrDiskFileDestinationOptions.DiskFileName =
                                                                    "C:\crystalExport.pdf"
                                        CrExportOptions = rpt.ExportOptions
                                        With CrExportOptions
                                            .ExportDestinationType = ExportDestinationType.DiskFile
                                            .ExportFormatType = ExportFormatType.PortableDocFormat
                                            .DestinationOptions = CrDiskFileDestinationOptions
                                            .FormatOptions = CrFormatTypeOptions
                                        End With
                                        rpt.Export()
                                    Catch ex As Exception
                                        MsgBox(ex.ToString)
                                    End Try