- 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=16731)
-- 发布时间：2012/2/22 10:20:00
-- [求助] 打印问题
狐爸，
1，窗口上设计打印按钮， 打印的是做好的excel报表，可以直接跳出打印预览界面吗。执行的代码怎样写呢。
2，webbrowser空间中嵌入的excel表格，可以以只读方式打开吗。
这里可以用那个proc.verb 的openasreadonly吗？
3，我是2月7号买的开发版，是必须要在1个月之内交给您转格式吗。
-- 发布时间：2012/2/22 10:25:00
--
1、看看：
http://www.foxtable.com/help/topics/2121.htm
2、没有办法，可以用openasreadonly，只要excel支持就行。
3、是的，要一个月内。
-- 发布时间：2012/2/22 13:09:00
-- [求助]
Dim book As New XLS.Book( ProjectPath & "Attachments\\出库单.xls")
Dim rpt As String = ProjectPath & "Reports\\出库单.xls"
Book.Build()
Book.Save(rpt)
代码按钮报错是这个。。
[此贴子已经被作者于2012-2-22 13:09:25编辑过]
-- 发布时间：2012/2/22 13:11:00
-- [求助]
图
此主题相关图片如下：报错.jpg
[此贴子已经被作者于2012-2-22 13:12:35编辑过]
-- 发布时间：2012/2/22 13:21:00
--
先关闭你的excel
-- 发布时间：2012/2/22 14:24:00
-- [求助]
此主题相关图片如下：打印界面.jpg
唉，试了好多种方法来实现打印，都满足不了条件啊，如果想打印上面这个窗口布局勾选中的内容，请问有没有比较好的方案呢
[此贴子已经被作者于2012-2-22 14:25:41编辑过]
-- 发布时间：2012/2/22 14:34:00
--
If Forms("窗口").Opened Then \'不知道打印窗口表和打印按钮是不是在一个窗口,如果不是加上这句
Tables("窗口名_Table1").Filter= "勾选列 = True" \'先筛选勾选的数据
Tables("窗口名_Table1").Select(0, 0, Tables("窗口名_Table1").Rows.Count - 1, Tables("窗口名_Table1").Cols.Count - 1) \'选定筛选后的数据
Dim book As New XLS.Book( ProjectPath & "Attachments\\出库单.xls")
Dim rpt As String = ProjectPath & "Reports\\出库单.xls"
Book.Build()
Book.Save(rpt)
Dim Proc As New Process \'打开工作簿
Proc.File = rpt
Proc.Start()
End If