| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11419) |
| -- 作者：tungwun -- 发布时间：2011/7/21 21:22:00 -- [求助] 怎樣指定打印表内一行内容的代码? Dim Ls As New List(Of String) For Each r as DataRow In DataTables("XXX").Select("XX Is Not Null") Ls.AddRange(r("X").split(" ")) Next Dim Book As New XLS.Book \'定义一个Excel工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表 For n As Integer = 0 To Ls.Count-1 \'向工作表的单元格中设置值 Sheet(n, 0).Value = Ls(n) Next Book.Save("c:\\reports\\test.xls") \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = "c:\\reports\\test.xls" Proc.Start() |
| -- 作者：mr725 -- 发布时间：2011/7/21 21:44:00 -- 筛选出这一行不就可以了吗。 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/7/22 8:41:00 -- 何不用Excel报表，默认就只打印选定的一行。 |
| -- 作者：tungwun -- 发布时间：2011/7/22 12:32:00 -- Excel打印文字内容在出现空格,跳到下一行 Excel打印文字内容在出现空格,跳到下一行 ? |