Exportar Reportviewer a PDF desde Código

[rafaviedo]

CcarlosSnow muchas gracias por el aporte, el codigo que me propocionastes esta excelente, solo le agrego algunos detalles que son importantes como ser Importar las siguientes librerias:
Imports Microsoft.Reporting
Imports Microsoft.Reporting.WinForms
Imports Microsoft.Reporting.WinForms.Warning

Ya que la linea del Waring me da problemas de refencia, por lo cual es codigo quedo de la siguiente manera y 100 % funcional

Dim mimeType As String = Nothing
Dim encoding As String = Nothing
Dim fileNameExtension As String = Nothing
Dim streams As String() = Nothing
Dim war As Warning() = Nothing
Dim Bit As Byte() = ReportViewer1.LocalReport.Render("PDF", Nothing, mimeType, encoding, fileNameExtension, streams, war)
Dim Fs As New IO.FileStream("G:\PDF\Nombre.pdf", IO.FileMode.Create)
Fs.Write(Bit, 0, Bit.Length)
Fs.Close()