exporter le rapport rdlc en pdf cliquez sur le bouton

Question

Salut tout le monde peut m'aider pour cela.

J'ai un rapport RDLC affiché sur ma page Web en utilisant asp.net et C# .net Je veux l'exporter en PDF sur un clic de bouton.

Pouvez-vous m'aider?

Merci

Answer 1

J'ai fait quelque chose comme ça il y a quelque temps. Voici le code que j'ai utilisé dans l'événement page_load d'une page. Il est dans VB et n'est pas le meilleur code au monde, mais pourrait vous aider à obtenir une solution ..

Dim jobid As Integer = Request("jobid") 
    Dim rv As New Microsoft.Reporting.WebForms.ReportViewer 
    Dim r As String = "apps/Reports/legal_document.rdlc" 
    Dim ds As New jobmanagerTableAdapters.JobInformationTableAdapter 
    Dim ds2 As New ordermanagementTableAdapters.RecoveryItemsInformationTableAdapter 
    Dim ds3 As New expensemanagerTableAdapters.tbl_expensesTableAdapter 
    Dim ds4 As New ordermanagementTableAdapters.tbl_orders_collection_itemsTableAdapter 
    Dim ds5 As New attachmentsmanagerTableAdapters.tbl_attachmentsTableAdapter 
    Dim ds6 As New notesmanagerTableAdapters.tbl_notesTableAdapter 
    Dim ds7 As New payments_managerTableAdapters.tbl_paymentsTableAdapter 


    Dim rptSource1 As New Microsoft.Reporting.WebForms.ReportDataSource 
    Dim rptSource2 As New Microsoft.Reporting.WebForms.ReportDataSource 
    Dim rptSource3 As New Microsoft.Reporting.WebForms.ReportDataSource 
    Dim rptSource4 As New Microsoft.Reporting.WebForms.ReportDataSource 
    Dim rptSource5 As New Microsoft.Reporting.WebForms.ReportDataSource 
    Dim rptSource6 As New Microsoft.Reporting.WebForms.ReportDataSource 
    Dim rptsource7 As New Microsoft.Reporting.WebForms.ReportDataSource 

    rptSource1.Name = "jobmanager_JobInformation" 
    rptSource1.Value = ds.GetJobInfobyJobID(jobid) 

    rptSource2.Name = "ordermanagement_RecoveryItemsInformation" 
    rptSource2.Value = ds2.GetRecoveryItemsbyJobIDOrderID(jobid, 0) 

    rptSource3.Name = "expensemanager_tbl_expenses" 
    rptSource3.Value = ds3.GetExpensesbyJobIDOrderID(jobid, 0) 

    rptSource4.Name = "ordermanagement_tbl_orders_collection_items" 
    rptSource4.Value = ds4.GetDataByJobIDOrderID(jobid, 0) 

    rptSource5.Name = "attachmentsmanager_tbl_attachments" 
    rptSource5.Value = ds5.GetAllAttachmentsbyJobID(jobid) 

    rptSource6.Name = "notesmanager_tbl_notes" 
    rptSource6.Value = ds6.GetAllNotesbyJobID(jobid) 

    rptsource7.Name = "payments_manager_tbl_payments" 
    rptsource7.Value = ds7.GetPaymentsbyJobID(jobid) 


    rv.LocalReport.DataSources.Clear() 

    rv.LocalReport.ReportPath = r.ToString 
    rv.LocalReport.DataSources.Add(rptSource1) 
    rv.LocalReport.DataSources.Add(rptSource2) 
    rv.LocalReport.DataSources.Add(rptSource3) 
    rv.LocalReport.DataSources.Add(rptSource4) 
    rv.LocalReport.DataSources.Add(rptSource5) 
    rv.LocalReport.DataSources.Add(rptSource6) 
    rv.LocalReport.DataSources.Add(rptsource7) 

    'Page.Controls.Add(rv) 

    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 bytes As Byte() 



    'Get folder on web server from web.config 
    Dim FolderLocation As String 
    FolderLocation = Server.MapPath("reports") 


    'First delete existing file 
    Dim filepath As String = FolderLocation & "\legal.PDF" 
    File.Delete(filepath) 



    'Then create new pdf file 
    bytes = rv.LocalReport.Render("PDF", Nothing, mimeType, _ 
     encoding, extension, streamids, warnings) 


    Dim fs As New FileStream(FolderLocation & "\legal.PDF", FileMode.Create) 
    fs.Write(bytes, 0, bytes.Length) 
    fs.Close() 

    Response.Redirect("reports/legal.pdf")