Export Crystal Report To PDF file

Dim rpt As New ReportDocument
        rpt.Load(Application.StartupPath.Substring(0, Application.StartupPath.Length - 10) + "\r12.rpt")
        Dim strSelectionFormula As String = "{Employees.BirthDate} in #" & _
        DateTimePicker1.Value & "# to #" & DateTimePicker2.Value & "#" & _
        " AND {Employees.Title} = '" & ComboBox1.Text & "'"
        rpt.RecordSelectionFormula = strSelectionFormula
        rpt.ExportToDisk(ExportFormatType.PortableDocFormat, "D:\Report1.pdf")