Convert RDLC to Excel oPDF

Question

An error occurred during local report processing. I am using WinForm and not WebForm and the error occurs at this line bytes = rptv.LocalReport.Render("Excel", deviceInf, mimeType, encoding, extension, streamIds, warnings)I deleted the RDL and re-created nothing changed. Anyone have an answer?
Protected Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim ds As New DataSet
Dim da As New SqlClient.SqlDataAdapter
Dim tbl As DataTable
Dim rptv As New Microsoft.Reporting.WinForms.ReportViewer
Dim bytes As Byte()
Dim rds As New ReportDataSource
Dim warnings As Warning() = Nothing
Dim streamIds As String() = Nothing
Dim mimeType As String = String.Empty
Dim encoding As String = String.Empty
Dim extension As String = String.Empty
Dim deviceInf As String
deviceInf = "<DeviceInfo><PageHeight>11in</PageHeight><PageWidth>8.5in</PageWidth></DeviceInfo>"
On Error GoTo handler
cn.ConnectionString = "Data Source=CAIpxxx;Initial Catalog=CustFiles;Integrated Security=True"
cmd.Connection = cn
cmd.Connection = cn
cmd.CommandTimeout = 900
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "usp_RDL_Test"
cn.Open()
da.SelectCommand = cmd
da.Fill(ds, "MyTbl")
cn.Close()
rds.Name = "DataSource1" '"DS1"
rds.Value = ("MyTbl")
rptv.LocalReport.ReportPath = "\\caipxxx\GPShare\RDL_Test\RDL_Test\RDL_Test\Report1.rdlc"
rptv.LocalReport.ReportEmbeddedResource = "\\caipxxx\GPShare\RDL_Test\RDL_Test\RDL_Test\Report1.rdlc"
rptv.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
rptv.LocalReport.DisplayName = "Test"
rptv.LocalReport.DataSources.Add(rds)
'bytes = rptv.LocalReport.Render("PDF", deviceInf, mimeType, encoding, extension, streamIds, warnings)
bytes = rptv.LocalReport.Render("Excel", deviceInf, mimeType, encoding, extension, streamIds, warnings)
Dim fs As New FileStream("\\caipxxx\accounting\MikeR\output.xls", FileMode.Create)
fs.Write(bytes, 0, bytes.Length)
Exit Sub
handler:
'Catch ex As Exception
MsgBox(Err.Description & Chr(13) & Err.Number, MsgBoxStyle.Critical, "Error Message")
' fso = Nothing
'fso = CreateObject("Scripting.FileSystemObject")
'f = fso.OpenTextFile("\\caipxxx\Accounting\CustomerFiles\ErrorLog\ErrFile.txt", 8, True)
'f.WriteLine(Err.Description & Chr(13) & Err.Source & Chr(13) & Err.Number & Now & Chr(13))
'End Try
'Me.Close()
Exit Sub
End Sub

Answer 1

I'm not aware of any free tool, but of course you can always try Acrobat...
Mylenium