1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
var Myword:_application;
DocWord: Variant;
begin
myword:=CoApplication_.create; //creation d'un objet application
myword.Set_ActivePrinter(Printer.Printers[ImprimanteparDefaut]); // récupération de l'imprimante par defaut
DocWord :=myword.Documents.open(Filename,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam);
Destinat := 0; //envoi vers nouveau document
myword.ActiveDocument.MailMerge.Set_Destination(Destinat);
myword.ActiveDocument.MailMerge.OpenDataSource(Pchar(Repertoireposte+nomtxt),EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam); //ici on fusionne le document word avec une source de données au format .txt
Myword.ActiveDocument.PrintOut(xbackground,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Copies,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam);//impression du document word
Myword.quit(XsaveChanges,Emptyparam,Emptyparam); //fermeture de word |
Partager