Delphi Word自动化-打印合并文档

Question

我的D5应用程序当前可以使用以下方法将多个成员数据通过邮件合并到Word文档：

wrdapp := CreateOleObjct(word.application);
wrdDoc := wrdApp.Document.Open(TemplateLocation);
wrdMailMerge := wrdDoc.MailMerge;
populateMailMergeDateFile;
wrdMailMerge.execute;

然后

wrdDoc.Saved := False;
wrdDoc.Close(False);
wrdApp.Visible := True;

我想提供将合并后的文档直接传递到打印机的选项。但是，我找不到允许这种情况发生的代码

wrdDoc.PrintOut;
wrdDoc.Saved := False;
wrdDoc.Close(False);

打印出没有合并数据的模板文档。

wrdDoc.Saved := False;
wrdDoc.Close(False);
wrdDoc.PrintOut;

显示可变对象错误。

wrdMailMerge.PrintOut;

显示自动化错误。

我也尝试过使用True而不是False。有没有人能告诉我如何正确打印合并后的文档？

非常感谢

Answer 1

在我的邮件合并代码中，我在执行合并之前将MailMerge.Destination设置为wdSendToNewDocument，然后调用WordApplication.ActiveDocument.Printout。