共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：EXCEL打印错误
1楼
tungwun 发表于：2011/10/17 23:38:00EXCEL打印错误!
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)
Next
Dim Ls As New List(Of String )
For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")
Ls.AddRange(r("修理內容").split(" "))
Next
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楼
狐狸爸爸 发表于：2011/10/17 23:41:00提示什么？
3楼
tungwun 发表于：2011/10/18 9:56:00代码错误
此主题相关图片如下：代碼錯誤.jpg
此主题相关图片如下：代碼錯誤.jpg4楼
狐狸爸爸 发表于：2011/10/18 10:18:00错误提示的意思是ls变量没有定义。
你在执行这行代码的时候：
For n As Integer = 0 To Ls.Count-1 '向工作表的單元格中設置值
并没有定义变量ls
共4 条记录, 每页显示 10 条, 页签:
[1]