主题：[求助] 打印问题

狐爸，

1，窗口上设计打印按钮，  打印的是做好的excel报表，可以直接跳出打印预览界面吗。执行的代码怎样写呢。
2，webbrowser空间中嵌入的excel表格，可以以只读方式打开吗。
这里可以用那个proc.verb 的openasreadonly吗？
3，我是2月7号买的开发版，是必须要在1个月之内交给您转格式吗。 

1、看看：

http://www.foxtable.com/help/topics/2121.htm

 

2、没有办法，可以用openasreadonly，只要excel支持就行。

 

3、是的，要一个月内。

 

 

图
此主题相关图片如下：报错.jpg

先关闭你的excel

此主题相关图片如下：打印界面.jpg

唉，试了好多种方法来实现打印，都满足不了条件啊，如果想打印上面这个窗口布局勾选中的内容，请问有没有比较好的方案呢

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