プレビューに行くことなくTelerik ReportViewerをPDFにエクスポートする方法。 VB.net webforms

Question

This is the report that I want to export to pdf

こんにちは！レポートビューアウィンドウに移動することなく、このレポートをPDFにエクスポートするにはどうすればよいですか？

ここに私のコードです。これは基本的にレポートビューアに私をもたらします。私がしたいことは、エクスポートボタンをクリックすると、レポートビューアに行かずにレポートを直接ダウンロードすることです。

Sub DoRep() 
    Dim truck As String = lblFLPlate.Text 
    If String.IsNullOrEmpty(truck) Then truck = "-" 
    Dim db As New wsbl.smwsEntities 
    Dim rb As New Telerik.Reporting.ReportBook 
    Dim lstFL = (From p In db.FinalLoadings Where If(p.IsPrinted, False) = False And p.TruckNo = truck And p.FLType = "BST" Order By p.CreatedDate Descending Select p).ToList 
    For Each fl In lstFL 
     rb.Reports.Add(getReport(fl.FinalLoadingNumber)) 
    Next 

    Dim instanceReportSource As New Telerik.Reporting.InstanceReportSource() 
    instanceReportSource.ReportDocument = rb 

    ReportViewer1.ReportSource = instanceReportSource 

    ShowReport() 

    For Each fl In lstFL 
     fl.IsPrinted = True 
    Next 
    db.SaveChanges() 
End Sub 

Answer 1

Sub DoRep() 
    Dim truck As String = lblFLPlate.Text 
    If String.IsNullOrEmpty(truck) Then truck = "-" 
    Dim db As New wsbl.smwsEntities 
    Dim rb As New Telerik.Reporting.ReportBook 
    Dim lstFL = (From p In db.FinalLoadings Where If(p.IsPrinted, False) = False And p.TruckNo = truck And p.FLType = "BST" Order By p.CreatedDate Descending Select p).ToList 
    For Each fl In lstFL 
     rb.Reports.Add(getReport(fl.FinalLoadingNumber)) 
    Next 

    Dim instanceReportSource As New Telerik.Reporting.InstanceReportSource() 
    instanceReportSource.ReportDocument = rb 

    ReportViewer1.ReportSource = instanceReportSource 


    Dim reportProcessor As New Telerik.Reporting.Processing.ReportProcessor() 
    Dim result As Telerik.Reporting.Processing.RenderingResult = reportProcessor.RenderReport("PDF", instanceReportSource, Nothing) 

    Dim fileName As String = result.DocumentName + "." + result.Extension 
    'Response.Clear() 
    Response.ContentType = result.MimeType 
    Response.Cache.SetCacheability(HttpCacheability.Private) 
    Response.Expires = -1 
    'Response.Buffer = True 
    Response.AddHeader("Content-Disposition", String.Format("{0};FileName=""{1}""", "attachment", fileName)) 
    Response.BinaryWrite(result.DocumentBytes) 
    'Response.End() 

    For Each fl In lstFL 
     fl.IsPrinted = True 
    Next 
    db.SaveChanges() 
    ShowMain() 
End Sub