Delphi Word自动化-打印合并文档
我的 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。有人可以建议我如何正确打印合并的文档吗？
非常感谢
My D5 application can currently mail merge multiple members data to a Word document using:
wrdapp := CreateOleObjct(word.application);
wrdDoc := wrdApp.Document.Open(TemplateLocation);
wrdMailMerge := wrdDoc.MailMerge;
populateMailMergeDateFile;
wrdMailMerge.execute;
and then
wrdDoc.Saved := False;
wrdDoc.Close(False);
wrdApp.Visible := True;
I would like to offer the option of passing the merged document straight to the printer. However I cannot find the code which allows this to happen
wrdDoc.PrintOut;
wrdDoc.Saved := False;
wrdDoc.Close(False);
Prints out the template document with no merged data.
wrdDoc.Saved := False;
wrdDoc.Close(False);
wrdDoc.PrintOut;
Displays a variant object error.
wrdMailMerge.PrintOut;
Displays an automation errors.
I've tried using True instead of False as well. Can anybody advise me as to how to print the merged document correctly?
many thanks
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
在我的邮件合并代码中，我在执行合并之前将 MailMerge.Destination 设置为 wdSendToNewDocument，然后调用 WordApplication.ActiveDocument.Printout。
In my mailmerge code, I set MailMerge.Destination to wdSendToNewDocument before executing the merge, then afterwards I call WordApplication.ActiveDocument.Printout.