为什么word打印出来的是一张白纸??
sgx 2003-07-10 10:43:38 Dim wrdapp As Word.Application
Set wrdapp = New Word.Application
With wrdapp
.Documents.Open Trim("c:\ddd")
.Visible = False
End With
With wrdapp.ActiveDocument
.Bookmarks.Item(1).Range.Text = Trim(rstx.Fields("qymc").Value)
.Bookmarks.Item(2).Range.Text = Trim(rstx.Fields("lxr").Value)
.Bookmarks.Item(3).Range.Text = Trim(rstx.Fields("lxdh").Value)
.Bookmarks.Item(4).Range.Text = Trim(rstx.Fields("email").Value)
.Bookmarks.Item(5).Range.Text = Trim(rstx.Fields("yjjy").Value)
End With
wrdapp.ActiveDocument.PrintOut
wrdapp.ActiveDocument.Save
'不做保存退出
wrdapp.Quit SaveChanges:=True
Set wrdapp = Nothing