- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]选择打印功能 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88748)
-- 发布时间：2016/8/8 21:16:00
-- [求助]选择打印功能
我想从表中选定自己想要的数据行进行打印，其中隐藏的列不打印，列名打印的是标题。窗口设计的按钮代码应该如何设计。
请问如何修改好，或者用新的别的代码。
Dim dt As Table = CurrentTable
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Style.BackColor = Color.Red
Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1
For c As Integer = 0 To dt.Cols.Count -1
Sheet(r +1, c).Value = dt.rows(r)(c)
Next
Next
Book.Save("C:\\Users\\asus\\Desktop\\临时\\test.xls")
Dim Proc As New Process
Proc.File = "C:\\Users\\asus\\Desktop\\临时\\test.xls"
Proc.Start()
-- 发布时间：2016/8/8 21:24:00
--
Dim dt As Table = CurrentTable
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As Xls.Style = Book.NewStyle
Style.BackColor = Color.Red
Dim i As Integer = 0
For c As Integer = 0 To dt.Cols.Count -1
If dt.Cols(c).Visible Then
Sheet(0, i).Value = dt.Cols(c).Caption
i = i + 1
End If
Next
i = 1
For r As Integer = dt.TopPosition To dt.BottomPosition
Dim j As Integer = 0
For c As Integer = 0 To dt.Cols.Count -1
If dt.Cols(c).Visible Then
Sheet(i, j).Value = dt.rows(r)(c)
j += 1
End If
Next
i += 1
Next
Book.Save("C:\\Users\\asus\\Desktop\\临时\\test.xls")
Dim Proc As New Process
Proc.File = "C:\\Users\\asus\\Desktop\\临时\\test.xls"
Proc.Start()
-- 发布时间：2016/8/8 22:12:00
-- 回复：（大红袍）Dim dt As Table = CurrentTableDim ...
谢谢红袍兄，请问一下：狐表能不能像Excel那样按住Ctrl键可以选择不连续的行。
-- 发布时间：2016/8/8 23:14:00
--
谢谢红袍兄，请问一下：狐表能不能像Excel那样按住Ctrl键可以选择不连续的行。
不行，试试这样处理
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77363&skin=0
-- 发布时间：2016/8/9 13:52:00
-- 回复：（大红袍）以下是引用陌聲人在2016/8/8 22:12:0...
老师，这个文件里的代码在别的项目会报错。
此主题相关图片如下：1.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:不同区域坐标选择.table |
-- 发布时间：2016/8/9 14:31:00
--
导出项目所有代码看看，注意全局代码
-- 发布时间：2016/8/9 14:35:00
--
全局代码，要写
Public ps As New List(Of String)
http://www.foxtable.com/webhelp/scr/1842.htm
-- 发布时间：2016/8/9 21:18:00
-- 回复：（大红袍）全局代码，要写?Public ps ...
出现下面的情况。
此主题相关图片如下：2.jpg
上图没有打开整行标记，下图打开了整行标记。
此主题相关图片如下：3.jpg
还有能否将红色背景去掉。。。。
-- 发布时间：2016/8/9 21:23:00
--
没办法，相互是冲突的。