Export Crystal report to PDF

Please see below code on how to export a crystal report as a PDF file without using a viewer.

 Dim filename As String
     
        filename ="c:\labels.pdf"
        Dim cryRpt As New ReportDocument
        cryRpt.Load("c:\labesbooked.rpt")
        Try
            Dim CrExportOptions As ExportOptions
            Dim CrDiskFileDestinationOptions As New  _
            DiskFileDestinationOptions()
            Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
            CrDiskFileDestinationOptions.DiskFileName = filename
          
            CrExportOptions = cryRpt.ExportOptions
            With CrExportOptions
                .ExportDestinationType = ExportDestinationType.DiskFile
                .ExportFormatType = ExportFormatType.PortableDocFormat
                .DestinationOptions = CrDiskFileDestinationOptions
                .FormatOptions = CrFormatTypeOptions
            End With
            cryRpt.Export()
        Catch ex As Exception
'do somthing
        End Try