报表导出问题

1、有没有好的办法，可以不进行预览直接进行报表导出excel或者pdf
2、3张不同的报表，是否可以合并在一起，一起套打。
3、有什么demo，是否可以借鉴下。

你是C/S端项目，还是B/S端项目。C/S端项目是可以的实现静默的导出和打印的，B/S 端暂时实现不了这样的需求

我是用c/s

那你可以直接写一个导出的按钮，然后导出的代码如下，通过直接点击导出来实现报表的导出跟报表展示就没有关系了，但是这个实际上也就是没有执行那个Viewer显示的特性

1. // Provide the page report you want to render.
   
2. GrapeCity.ActiveReports.PageReport report = new GrapeCity.ActiveReports.PageReport();GrapeCity.ActiveReports.Document.PageDocument reportDocument = new GrapeCity.ActiveReports.Document.PageDocument(report);
   
3. 
   
4. // Create an output directory.
   
5. System.IO.DirectoryInfo outputDirectory = new System.IO.DirectoryInfo(@"C:\MyExcel");
   
6. outputDirectory.Create();
   
7. 
   
8. // Provide settings for your rendering output.
   
9. GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtensionSettings excelSetting = new GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtensionSettings();
   
10. excelSetting.FileFormat = GrapeCity.ActiveReports.Export.Excel.Page.FileFormat.Xls;
    
11. GrapeCity.ActiveReports.Extensibility.Rendering.ISettings setting = excelSetting;
    
12. 
    
13. // Set the rendering extension and render the report.
    
14. GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtension excelRenderingExtension = new GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtension();
    
15. GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider outputProvider = new GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider(outputDirectory, System.IO.Path.GetFileNameWithoutExtension(outputDirectory.Name));
    
16. 
    
17. // Overwrite output file if it already exists.
    
18. outputProvider.OverwriteOutputFile = true;
    
19. 
    
20. reportDocument.Render(excelRenderingExtension, outputProvider, excelSetting.GetSettings());
    

复制代码

1. // Provide the page report you want to render.
   
2. GrapeCity.ActiveReports.PageReport report = new GrapeCity.ActiveReports.PageReport();
   
3. GrapeCity.ActiveReports.Document.PageDocument reportDocument = new GrapeCity.ActiveReports.Document.PageDocument(report);
   
4. 
   
5. // Create an output directory.
   
6. System.IO.DirectoryInfo outputDirectory = new System.IO.DirectoryInfo(@"C:\MyWord");
   
7. outputDirectory.Create();
   
8. 
   
9. // Provide settings for your rendering output.
   
10. GrapeCity.ActiveReports.Export.Word.Page.Settings wordSetting = new GrapeCity.ActiveReports.Export.Word.Page.Settings();
    
11. 
    
12. // Set the FileFormat property to .OOXML.
    
13. wordSetting.FileFormat = GrapeCity.ActiveReports.Export.Word.Page.FileFormat.OOXML;
    
14. 
    
15. // Set the rendering extension and render the report.
    
16. GrapeCity.ActiveReports.Export.Word.Page.WordRenderingExtension wordRenderingExtension = new GrapeCity.ActiveReports.Export.Word.Page.WordRenderingExtension();
    
17. GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider outputProvider = new GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider(outputDirectory, System.IO.Path.GetFileNameWithoutExtension(outputDirectory.Name));
    
18. 
    
19. // Overwrite output file if it already exists.
    
20. outputProvider.OverwriteOutputFile = true;
    
21. 
    
22. reportDocument.Render(wordRenderingExtension, outputProvider, wordSetting);      

复制代码

我本地已经做好了rdlx报表，是否可以直接导出。而不通过view方式在导出

就是我上面给你的代码那样导出，这是后台导出的代码

我的意思是。我rdlx报表在本地，加载后。直接导出呀。我试了下，只是导出一个空白的

我把代码调整了下
  Private Function P_Exportword() As Integer
        Dim intsuc As Integer = - 2
        Try
            Dim strFileName As String = System.Environment.CurrentDirectory + "\report\dz_bgd.rdlx"
            Dim report As GrapeCity.ActiveReports.PageReport = New GrapeCity.ActiveReports.PageReport(new system.io.FileInfo(strFileName))
            AddHandler report.Document.LocateDataSource, AddressOf OnLocateDataSource '添加动态数据源事件，进行事件加载
            Dim reportDocument As GrapeCity.ActiveReports.Document.PageDocument = New GrapeCity.ActiveReports.Document.PageDocument(report)
            
            Dim outputDirectory As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("C:\myword")
            outputDirectory.Create()
            Dim wordSetting As  GrapeCity.ActiveReports.Export.Word.Page.Settings = New GrapeCity.ActiveReports.Export.Word.Page.Settings()
            wordSetting.FileFormat = GrapeCity.ActiveReports.Export.Word.Page.FileFormat.OOXML
            Dim wordRenderingExtension As GrapeCity.ActiveReports.Export.Word.Page.WordRenderingExtension = New GrapeCity.ActiveReports.Export.Word.Page.WordRenderingExtension()
            Dim outputProvider As GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider = New GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider(outputDirectory, System.IO.Path.GetFileNameWithoutExtension(outputDirectory.Name))
            outputProvider.OverwriteOutputFile = True
            

            reportDocument.Render(wordRenderingExtension, outputProvider, wordSetting)
            intsuc = 1
        Catch ex As Exception
            MsgBox(ex.Message, , "错误")
        End Try
        Return intsuc
    End Function

   Private Sub OnLocateDataSource(ByVal sender As Object, ByVal args As GrapeCity.ActiveReports.LocateDataSourceEventArgs)

        '   If args.DataSourceName = "binbin" Then

        '            Dim vConnection As New GrapeCity.ActiveReports.PageReportModel.ConnectionProperties
        '            vConnection.ConnectString = _nConnection1

        '    If args.DataSetName = "DataSet1" Then
        '  args.Data = _nMainDataSource1

        '     End If
        '   End If
        if P_ReturnReportData.Tables.Count>0 then
            _nDataSource1=P_ReturnReportData.Copy()
        End If
        If _nDataSource1.Tables.Count = 1 Then
            If LCase(Convert.ToString(args.DataSetName)) = "master" Then
                args.Data = _nDataSource1.Tables(0)
            End If
            If LCase(Convert.ToString(args.DataSetName)) = "detail" Then
                args.Data = _nDataSource1.Tables(1)
            End If
        ElseIf _nDataSource1.Tables.Count = 2 Then
            If LCase(Convert.ToString(args.DataSetName)) = "master" Then
                args.Data = _nDataSource1.Tables(0)
            End If
            If LCase(Convert.ToString(args.DataSetName)) = "detail" Then'Detail
                args.Data = _nDataSource1.Tables(1)
            End If
        End If


    End Sub
不过导出报表，提示无法加载数据源。
我把报表的数据源改为dataset provider
最后提示，无法加载数据源。

问题已经解决了。我把代码修改了下
Private Function P_Exportword() As Integer
        Dim intsuc As Integer = - 2
        Try
            Dim strFileName As String = System.Environment.CurrentDirectory + "\report\dz_bgd.rdlx"
            Dim report As GrapeCity.ActiveReports.PageReport = New GrapeCity.ActiveReports.PageReport(new system.io.FileInfo(strFileName))
       '     AddHandler report.Document.LocateDataSource, AddressOf OnLocateDataSource '添加动态数据源事件，进行事件加载
            Dim reportDocument As GrapeCity.ActiveReports.Document.PageDocument = New GrapeCity.ActiveReports.Document.PageDocument(report)
            AddHandler reportdocument.LocateDataSource, AddressOf OnLocateDataSource '添加动态数据源事件，进行事件加载
            Dim outputDirectory As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("C:\myword")
            outputDirectory.Create()
            Dim wordSetting As  GrapeCity.ActiveReports.Export.Word.Page.Settings = New GrapeCity.ActiveReports.Export.Word.Page.Settings()
            wordSetting.FileFormat = GrapeCity.ActiveReports.Export.Word.Page.FileFormat.OOXML
            Dim wordRenderingExtension As GrapeCity.ActiveReports.Export.Word.Page.WordRenderingExtension = New GrapeCity.ActiveReports.Export.Word.Page.WordRenderingExtension()
            Dim outputProvider As GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider = New GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider(outputDirectory, System.IO.Path.GetFileNameWithoutExtension(outputDirectory.Name))
            outputProvider.OverwriteOutputFile = True
            

            reportDocument.Render(wordRenderingExtension, outputProvider, wordSetting)
            intsuc = 1
        Catch ex As Exception
            MsgBox(ex.Message, , "错误")
        End Try
        Return intsuc
    End Function