主题：[求助]直接打印

此主题相关图片如下：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()

换一种方式打印。

 

 

    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

 错误提示：被呼叫方拒绝接收呼叫。 (异常来自 HRESULT:0x80010001 (RPC_E_CALL_REJECTED))

 那就是你的MS Office安装有问题，请安装完整版的。