|
正如楼主所说，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
'---------------------- | 
楼主: 来生缘
沪公网安备 31011702000001号 沪ICP备11019229号-2
楼主
发表于 2005-7-5 04:19
