主题：[求助]:如何在DataList中打印选定的行?(用Excel报表)

     如题,在DataList中,通过选择框选定一些行,如何调用Excel 模板只打印这些选定行?(用Excel报表)最好谁能做个例子传上来,谢谢!

我的办法,先筛选,然后在筛选出来的进全部选定,然后再点EXCEL报表管理器,选择相关的EXCEL表预览,你就能看到EXCEL中就是你筛选后的表格了,到了EXCEL中你再操作打印便可了

这种办法不可行。
因为要打印的行是在DataList中临时根据需要选取的，用筛选的办法不方便！
还是希望谁提供一个解决方案，最好提供一个事例！

筛选的为什么会不行呢？
我想不管什么方法能实现要求的都是好方法。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.rar

我觉得用筛选很好啊,可以参考程序自带的"窗口筛选.table"进行筛选,然后再打印EXCEL表

模板的筛选和楼主要求有很大区别的。

我一直用datalist和表同时筛选打印

看看这个表

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:窗口筛选.table

4楼的代码改成下面这样操作时看起来好一点。

For Each dr As DataRow In DataTables("员工").DataRows
    dr("打印") = false
Next
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
For Index As Integer = 0 To dst.Count - 1
    If dst.GetChecked(Index) Then
        Dim dr As DataRow = dst.GetDataRow(Index)
        dr("打印") = true
    End If
Next
Dim dr1 As DataRow
dr1 = DataTables("员工").Find("打印 = true")
If dr1 IsNot Nothing Then
    Tables("员工").Filter = "[打印] = true"
    CurrentTable.Select(0,1,CurrentTable.Rows.Count-1,1)
    Dim Book As New XLS.Book(ProjectPath & "Attachments\资料卡.xls")
    Book.Build()
    Book.Save(ProjectPath & "Reports\资料卡.xls")
    Tables("员工").Filter = ""
    CurrentTable.Select(0,1,0,1)
    Dim Proc As New Process '打开工作簿
    Proc.File = ProjectPath & "Reports\资料卡.xls"
    Proc.Start()
Else
    MessageBox.Show("没有要打印的数据!")
End If

  我也是表和DATALIST同时筛选打印的.