Exporting a Drill Down Report

I need to export a report that is a drill down. The code I have set up works for exporting a report but if I drill down into it I cannot export what is displayed in the viewer I can only seem to export the main report itself. Here is the code that I am using

Code:

---

        Try
            Dim exopt As New ExportOptions
            Dim emopts As New MicrosoftMailDestinationOptions
            'get all export information
            exopt = Rpt.ExportOptions
            exopt.ExportFormatType = ExportFormatType.PortableDocFormat
            exopt.ExportDestinationType = ExportDestinationType.MicrosoftMail
            exopt.DestinationOptions = emopts
            'get all email information then export
            emopts.MailToList = txtSend.Text
            emopts.MailCCList = txtCC.Text
            emopts.MailSubject = txtSubj.Text
            emopts.MailMessage = txtMess.Text
            Rpt.Export()
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try

---

If it isn't possible to export the drill down using the Report Object is it possible to make the ExportReport Funtion in the Crystal Report Viewer not display a dialog box and just save a .pdf with a name and location I specify.