以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.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打印文字内容在出现空格,跳到下一行 ?