- 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=54854)
-- 发布时间：2014/8/6 10:59:00
-- 关于打印指定列的问题，谢谢
我在窗口中的checkedcombobox中选择我要打印的列名，点击button可以直接打印选定列，请问如何实现？谢谢
-- 发布时间：2014/8/6 11:03:00
--
例子发上来。
-- 发布时间：2014/8/6 11:04:00
--
怎么打印? 打印窗口,直接SaveExcel表? 还是?
可以考虑把勾上的表隐藏.
-- 发布时间：2014/8/6 11:09:00
--
我想问一下如何打印指定列。
[此贴子已经被作者于2014-8-6 11:12:47编辑过]
-- 发布时间：2014/8/6 11:14:00
--
请上例子,并且说明白你的需求.
如果是CurrentTable.Print
那么你隐藏你不想打印的列即可
-- 发布时间：2014/8/6 11:15:00
--
假定是表A，我想打印我选择的列。
-- 发布时间：2014/8/6 11:17:00
--
Dim str As String = "第一列,第二列"
Dim cws As String = Tables("表A").GetColVisibleWidth
For Each c As Col In Tables("表A").Cols
Dim flag As Boolean = False
For Each s As String In str.Split(",")
If c.Name = s Then
flag = True
End If
Next
c.Visible = flag
Next
msgbox("打印")
Tables("表A").SetColVisibleWidth(cws)
-- 发布时间：2014/8/6 11:46:00
-- 回复：（有点甜）Dim str As String = "第一列,第二列...
上传个例子，如何实现Print功能，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2014/8/6 11:52:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.rar |
Dim str As String = Tables("表A").GetColVisibleWidth
For Each c As Col In Tables("表A").Cols
c.Visible=False
Next
For Each s As String In e.Form.Controls("CheckedComboBox1").text.split(",")
Tables("表A").Cols(s).Visible=True
Next
Tables("表A").Print(True,True)
Tables("表A").SetColVisibleWidth(str)
-- 发布时间：2014/8/6 11:54:00
--
代码
Dim str As String = e.Form.Controls("CheckedComboBox1").Text
Dim cws As String = Tables("表A").GetColVisibleWidth
For Each c As Col In Tables("表A").Cols
Dim flag As Boolean = False
For Each s As String In str.Split(",")
If c.Name = s Then
flag = True
End If
Next
c.Visible = flag
Next
Tables("表A").Print(True, False)
Tables("表A").SetColVisibleWidth(cws)