report viewer kullanarak, rapor export etmek

her ay özel bir raporun pdf haline dönüştürülüp, bu dosyanın mail olarak ilgili kişilere gönderilmesi gerekiyordu. ben de, .rdlc uzantılı "report viewer" dosyasını kullanarak, bunun "export to pdf" özelliğini kullandım.

Dim RptViewer As New Microsoft.Reporting.WinForms.ReportViewer()
Dim TblAdp As New myDataSetTableAdapters.myTableAdapter
Dim Dtbl As New myDataSet.myDataTable
TblAdp.Fill(Dtbl, Dt.Rows(i).Item(0).ToString)
Dim RptDtS As New Microsoft.Reporting.WinForms.ReportDataSource("myDataSet_my", Dtbl)
RptViewer.LocalReport.DataSources.Add(RptDtS)
RptViewer.LocalReport.ReportPath = "./myReport.rdlc"
Dim MimeType As String = ""
Dim Encoding As String = ""
Dim StringFileNameExtension As String = ""
Dim Streams As String() = Nothing
Dim Warnings As Microsoft.Reporting.WinForms.Warning() = Nothing
Dim PdfContent As Byte()
PdfContent = RptViewer.LocalReport.Render("PDF", Nothing, MimeType, Encoding, StringFileNameExtension, Streams, Warnings)