Sub Export_Report(ByVal test As Boolean, ByVal _Dateiname As String)
        Try
            Dim warnings As Warning() = Nothing
            Dim streamids As String() = Nothing
            Dim mimeType As String = Nothing
            Dim encoding As String = Nothing
            Dim extension As String = Nothing
            Dim deviceInfo As String
            Dim bytes As Byte()
            Dim lr As New LocalReport
 
            lr.ReportPath = "rptTagesbericht_Export1.rdlc"
 
            deviceInfo = _
              "<DeviceInfo><SimplePageHeaders>True</SimplePageHeaders></DeviceInfo>"
 
            bytes = lr.Render("PDF", deviceInfo, mimeType, encoding, extension, _
              streamids, warnings)
            'MsgBox(bytes.Length.ToString)
            ' Create a file and write the byte data to a file.
            Dim oFileStream As System.IO.FileStream
            'Überprüfen ob Datei existiert
            Dim Counter As Integer = 0
            If _Helper.FileExists(_Dateiname & ".pdf") = True Then
                Counter += 1
                _Dateiname = _Dateiname & "_" & Counter
            End If
            oFileStream = New System.IO.FileStream(_Dateiname & ".pdf", _
              System.IO.FileMode.Create)
            oFileStream.Write(bytes, 0, bytes.Length)
            oFileStream.Close()
            ClassLogger.Add("## Info: Export_Report ==> Datei erfolgreich" & _
              "erzeugt", False)
        Catch ex As Exception
            If test = False Then
                ClassLogger.Add("Fehler bei Export_Report für das Profil: " & _
                  Me.aktivesProfil.Profilname, ex.Message)
            Else
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei" & _
                  "Export_Report für den Mandanten Profil: " & _
                  Me.cmbMandant.SelectedItem)
            End If
 
        End Try
    End Sub

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten