Delphi Word автоматизация - распечатать объединенный документ - PullRequest
Новая
       22

Delphi Word автоматизация - распечатать объединенный документ

4 голосов
/ 30 сентября 2011

В настоящее время мое приложение 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.Кто-нибудь может посоветовать мне, как правильно распечатать объединенный документ?

большое спасибо

1 Ответ

5 голосов
/ 30 сентября 2011

В своем коде mailmerge я установил для MailMerge.Destination значение wdSendToNewDocument перед выполнением слияния, а затем после этого вызвал WordApplication.ActiveDocument.Printout.

...