- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于excel报表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99630)
-- 发布时间：2017/4/23 11:18:00
-- 关于excel报表
能否把要打印的excel报表加载到窗口里面预览，然后可以用代码再打印？
-- 发布时间：2017/4/23 13:08:00
--
参考
http://www.foxtable.com/webhelp/scr/1892.htm
| 下载信息 [文件大小：21.9 KB 下载次数：26] | |
 点击浏览该文件:webbrowser操作excel.rar |
-- 发布时间：2017/4/23 15:00:00
--
再次打印预览，怎么把之前的关闭然后再打开
怎么用代码打印
-- 发布时间：2017/4/23 16:15:00
--
顶
-- 发布时间：2017/4/23 17:08:00
--
e.Form.Controls("Webbrowser1").Address = Nothing
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps
msgbox(p.MainWindowTitle)
If p.MainWindowTitle = Nothing Then p.kill
Next
\'其余的重新生成的代码......
-- 发布时间：2017/4/23 17:37:00
--
打印的代码呢
-- 发布时间：2017/4/23 20:39:00
--
打印的代码呢
Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.print
-- 发布时间：2017/4/24 9:44:00
--
怎么关闭指定的excel
-- 发布时间：2017/4/24 9:46:00
--
怎么关闭指定的excel
如果是webbrowser里面的，这样写
e.Form.Controls("Webbrowser1").Address = Nothing
如果是直接打开的，参考 http://www.foxtable.com/webhelp/scr/2713.htm
-- 发布时间：2017/4/24 11:07:00
--
打印多份的话，怎么写
Dim Book As New XLS.Book(fs) \'& e.Form.Controls("订单号").text & ".xls")
Dim fl As String = ProjectPath & "OutPut\\标签1.xls"
Book.Sheets.SelectedIndex=e.Form.Controls("TabControl1").SelectedIndex \'显示标签还是唛头
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
\'Proc.Verb = "Print" \'指定动作
Proc.Start()