- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]直接打印 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80167)
-- 发布时间：2016/1/17 19:35:00
-- [求助]直接打印
此主题相关图片如下：qq图片20160117.png
老师，用下面这段代码打印出现上面的错误提示，打印还是完成了。请指点，谢谢！
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("药品出库单"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
Dim Proc As New Process
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
wrt.quit()
[此贴子已经被作者于2016/1/17 19:36:08编辑过]
-- 发布时间：2016/1/17 19:44:00
--
换一种方式打印。
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("药品出库单"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.print
wrt.quit
-- 发布时间：2016/1/17 19:48:00
--
错误提示：被呼叫方拒绝接收呼叫。 (异常来自 HRESULT:0x80010001 (RPC_E_CALL_REJECTED))
[此贴子已经被作者于2016/1/17 19:57:19编辑过]
-- 发布时间：2016/1/17 20:02:00
--
那就是你的MS Office安装有问题，请安装完整版的。