为什么word打印出来的是一张白纸??

Question

Dim wrdapp As Word.Application
Set wrdapp = New Word.ApplicationWith wrdapp
.Documents.Open Trim("c:\ddd")
.Visible = False
End WithWith wrdapp.ActiveDocument.Books.Item(1).Range.Text = Trim(rstx.Fields("qymc").Value)
.Books.Item(2).Range.Text = Trim(rstx.Fields("lxr").Value)
.Books.Item(3).Range.Text = Trim(rstx.Fields("lxdh").Value)
.Books.Item(4).Range.Text = Trim(rstx.Fields("email").Value)
.Books.Item(5).Range.Text = Trim(rstx.Fields("yjjy").Value)End Withwrdapp.ActiveDocument.PrintOut
wrdapp.ActiveDocument.Save'不做保存退出wrdapp.Quit SaveChanges:=True
Set wrdapp = Nothing

Answer 1

如果将
wrdapp.Quit SaveChanges:=True
Set wrdapp = Nothing移除则可正常打印为什么?应该怎么办???help

Answer 2

问题出在这一句
wrdapp.Quit SaveChanges:=True
你的意思是什么？
为什么为这样写呢？
是不是想不保存退出？

Answer 3

将数据导入word中 --> 直接打印不保存