Dim rview As New Microsoft.Reporting.WinForms.ReportViewer()
        rview.LocalReport.DataSources.Add( _
            New ReportDataSource("Länderdaten", ds.Tables("Laender")))
        rview.LocalReport.ReportEmbeddedResource = "Länderdaten.rdlc"
        Dim mimeType As String = String.Empty
        Dim encoding As String = String.Empty
        Dim extension As String = String.Empty
        Dim deviceInfo As String = String.Empty
        Dim streamids() As String = Nothing
        Dim warnings() As Microsoft.Reporting.WinForms.Warning = Nothing
        Dim format As String = "PDF"
        Dim bytes As Byte() = rview.LocalReport.Render(format, "", mimeType, _
          encoding, extension, streamids, warnings)
        Dim fs As New FileStream("test.pdf", FileMode.Create)
        fs.Write(bytes, 0, bytes.Length)
        fs.Close()

Salzburger