[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有5018人关注过本帖树形打印复制链接主题：[求助]

tungwun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

[求助]

Post By：2014/3/2 19:07:00 [只看该作者]

EXCEL打印错误! 請問如何修改??

Dim Book As New XLS.Book(ProjectPath & "Attachments\TAXI單.xls")

Dim fl As String = ProjectPath & "Reports\TAXI單.xls"

For n As Integer = 0 To Ls.Count-1 '向工作表的單元格中設置值

Sheet(n, 0).Value = Ls(n)

Dim Ls As New List(Of String )

For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")

Ls.AddRange(r("修理內容").split(" "))

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.PrintOut

App.Quit

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/3/2 19:24:00 [只看该作者]

这个意思？

Dim Ls As New List(Of String )

For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")

Ls.AddRange(r("修理內容").split(" "))

Dim Book As New XLS.Book(ProjectPath & "Attachments\TAXI單.xls")

Dim fl As String = ProjectPath & "Reports\TAXI單.xls"

For n As Integer = 0 To Ls.Count-1 '向工作表的單元格中設置值

Sheet(n, 0).Value = Ls(n)

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.PrintOut

App.Quit

tungwun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

[求助]

Post By：2014/3/2 19:33:00 [只看该作者]

这个是指(修理内容文字出现空格自动跳到下一行?

Dim Ls As New List(Of String )

For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")

Ls.AddRange(r("修理內容").split(" "))

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/3/2 19:45:00 [只看该作者]

呃，可以这么理解。

不过你这段打印的代码完全不通啊，是完整了吗？

tungwun

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

Post By：2014/3/2 20:09:00 [只看该作者]

请问如何修改?

Dim Book As New XLS.Book(ProjectPath & "Attachments\TAXI單.xls")

Dim fl As String = ProjectPath & "Reports\TAXI單.xls"

For n As Integer = 0 To Ls.Count-1 '向工作表的單元格中設置值

Sheet(n, 0).Value = Ls(n)

Dim Ls As New List(Of String )

For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")

Ls.AddRange(r("修理內容").split(" "))

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.PrintOut

App.Quit

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/3/2 20:30:00 [只看该作者]

呃，关键是我不知道你想干嘛啊。

根据 TAXI單模板生成报表，然后往报表的第一列依次写入修理内容？逻辑很有问题吧？

请上传例子。

tungwun

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

[求助]

Post By：2014/3/7 12:40:00 [只看该作者]

Execl打印[修理内容]加逗号自动换下一行?如:修理空调,入环保雪种,入134a泵油

打印换成:

修理空调

入环保雪种

入134a泵油

下载信息 [文件大小：下载次数： ]
点击浏览该文件:taxi單.xls

狐狸爸爸

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/3/7 15:59:00 [只看该作者]

这个只能用标记与事件解决。

1、做个打印按钮：
Dim Book As New XLS.Book("c:\book5.xls")
For i as integer = 1 to 4
     Book.Marks.Add("标记" & i,"")
next
Book.Build()
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

2、报表事件BuildDetail：

Select Case e.Book.TempLate
   case ”book5“
       For i as integer = 1 to 4
              e.Book.Marks("标记" & i) = ""
      next
      if e.datarow isnot nothing Andalso e.datarow.Isnull("列名") = False then
           dim vals() = e.datarow("列名").Split(",")
           Dim cnt = Math.Min(4,vals.length)
           For i as integer = 1 to cnt
               e.Book.Marks("标记" & i) = "" = vals(i)
           next
      end if
end select