急,word打印问题.

Question

我在第二次执行以下程序时，为什么总是报错：实时错误‘462’：远程服务器不存在或不能使用
    Dim wodApp As Word.Application
    Dim strTemp As StringOn Error Resume Next
    Set wodApp = GetObject(, "Word.Application")  
    If Err.Number <> 0 Then
        Set wodApp = New Word.Application         
    End If
    Err.Clear    wodApp.Documents.Open App.Path & "\预约单.doc"
  
    '********修改word内容********    ActiveDocument.SaveAs App.Path & "\临时.doc"
    ActiveDocument.PrintOut
    wodApp.Documents.Close
    wodApp.Quit

Answer 1

目的："预约单.doc"作模板文件，修改后生成"临时.doc"，接着打印"临时.doc"。