用VB控制word打印后怎么关闭word

weianhui

我用VB控制word用.printout方法发送打印后就用wdapp.quit结束了word,但打印机中却没有收到，之后我去掉了wdapp.quit这句就可以打印了，但是进程中却有winword.exe一直在运行，请问怎么才能在发送打印后关掉word程序？大虾帮忙阿，谢谢先

以下是我的程序：

Set WordApp = GetObject(, "Word.Application")
   If Err Then
      Err.Clear
      Set WordApp = CreateObject("Word.Application")
      If Err Then
         Err.Clear
         MsgBox "无法启动Word,请检查是否正确安装！"
         Exit Sub
      End If
   End If
    Set WordDoc = WordApp.Documents.Open(List1.List(i))
   WordDoc.PrintOut
   Printer.EndDoc
   If Err Then
      MsgBox Err.Description
      Err.Clear
   End If
   WordDoc.Close False
   List2.AddItem "正在将'" & List1.List(i) & "'发送至" & Printer.DeviceName
   
   WordApp.Quit False     '就是这句，去掉就能打印，但进程中winword.exe就会一直运行，若保留就不能打印

   Set WordApp = Nothing

petty

wordapp.close

petty

wordapp.close

weianhui

不行啊，说“未找到数据成员或方法”，close方法worddoc有，wordapp没有啊，怎么办啊，请教大虾们啊，非常急

xiaoye

'关闭Word
WordDoc.Close
WordApp.Documents.Close
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing

我没有用Word进行打印，只是打开进行修改之后再将其关闭，能结束进程中的winword.exe。你可以试试

lwq0990

我觉得你在 "WordApp.Quit False" 这句之前加一句 " msgbox "正在打印中",,"提示信息"  "这条语句，等打印完了，再点“确定”，就会执行 "WordApp.Quit False" 这条语句了。

solen

谢谢楼上 再补充下

oWord:Word.Application  
  oWord.ActiveDocument.BuiltInDocumentProperties(Index).value  
   
  Index=1   标题(Title)  
  Index=2   主题(Subject)  
  Index=3   作者(Author)  
  Index=4   关键词(Keywords)  
  Index=5   备注(Comments)  
  Index=6   模板(Template)  
  Index=7   单位(Last   author)

---------------------------------------------------------------------------

uses  
        ComObj  
   
  function   IsFileInUse(const   FileName:String):Boolean;  
  var  
        FileStrm:TFileStream;  
  begin  
        Result:=false;  
        try  
              FileStrm:=TFileStream.Create(FileName,fmOpenReadWrite);  
              FileStrm.Free;  
        except  
              Result:=true;  
        end;  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
        oWord:OleVariant;  
        FileName:String;  
  begin  
      FileName:='C:\Documents   and   Settings\Administrator\Desktop\料品库存异动汇总表.doc';  
      if   not   FileExists(FileName)   then   exit;  
      if   IsFileInUse(FileName)   then   exit;//检查文件是否被打开，否则不能修改  
      oword   :=   CreateOLEObject('Word.Application');  
      Sleep(100);//等待Word启动  
      oword.documents.open(FileName);  
      oWord.ActiveDocument.BuiltInDocumentProperties(1):='测试修改Word文档属性';   //标题(Title)  
      oWord.ActiveDocument.BuiltInDocumentProperties(2):='修改Word相关信息';           //主题(Subject)  
      oWord.ActiveDocument.BuiltInDocumentProperties(3):='最好玩滴那个';                   //作者(Author)  
      oWord.ActiveDocument.BuiltInDocumentProperties(4):='修改   文档   属性';               //关键词(Keywords)  
      oWord.ActiveDocument.BuiltInDocumentProperties(5):='就是最好玩滴那个干滴好事啦，嘻嘻';//备注(Comments)  
      //oWord.ActiveDocument.BuiltInDocumentProperties(6)   //模板(Template)  
      oWord.ActiveDocument.BuiltInDocumentProperties(7):='不记得是在哪个单位了';   //单位(Last   author)  
      oword.ActiveDocument.Save;  
      oword.quit;  
  end;  

solen

我在VB中用VBA在后台调出word文档并用printout打印，并在完成后关闭word。但出现一个问题就是，如果调出
的word文档页码很多，在我关闭时还来不及输出到打打印机，word就会提示：word正在打印。如果退出word，会
取消所有未完成的打印作业。是否要退出word。我如何才能知道打印输出完成了，这时我才去关闭word。  
  VBA代码：  
          ActiveDocument.PrintOut  
  '在这里检测并等待word打印输出完毕。就是不知怎么做。  
          ActiveWindow.Close  
          Application.Quit.
解决方法
XXXXXXXXX.PrintOut   Background:=False 

    Set wb = ThisWorkbook
    With wb
        [a1] = .Title '标题
        [a2] = .Subject '主题
        [a3] = .Author '作者
    End With

sailorcwx

采用后台打印