正如楼主所说,WORD2000中,没有邮件合并到打印机这个命令。为确认WORD2000情况并调试反馈情况,得到网友hpw的大力支持,一并表示感谢。 我修改了一下,就邮件合并到新文档吧,然后再打印,也一样,请楼主继续测试(这本是一个极其简单的问题,却因为版本差异,拖了几天了) 请将以下代码替换原有的EXCEL工作薄中(数据源)的代码 Option Explicit
Sub MailMergeToWordPrinter()
'运行此程序前请检查VBE/工具/引用中,确认对于Microsoft Word 9.0 Object Library
'请不要打开WORD程序
Dim MyWordApp As New Word.Application, MyMailMergeDoc As Word.Document
With MyWordApp
.Visible = True
'打开指定的WORD邮件合并主文档,注意确保在同一文件夹中,如果不是,请写明全路径
Set MyMailMergeDoc = .Documents.Open(ThisWorkbook.Path & "\来生缘.Doc")
'主文档的邮件合并对象
With MyMailMergeDoc.MailMerge
'邮件合并操作的结果传送新文档(当执行EXECUTE时,该文档成为活动文档)
.Destination = wdSendToNewDocument
'邮件合并域为空时,就删除该空行
.SuppressBlankLines = True
'合并全部数据源数据
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
'合并域
.Execute Pause:=False
End With
'打印活动文档
.ActiveDocument.PrintOut Copies:=1
'关闭并不保存活动文档
.ActiveDocument.Close False
'关闭主文档
MyMailMergeDoc.Close False
'退出WORD程序
.Quit
'释放对象变量
Set MyWordApp = Nothing
End With
End Sub
'---------------------- |