Serienbrief drucken

[Mathias Fabian]

Hallo,
ich verwende Delphi 5 und die Office 2000 Komponenten. Jetzt möchte ich Worddokumente drucken. Drucken von "normalen" Dokumenten fuktioniert auch, nur bei Serienbriefen druckt er falsch, nämlich nur die "Vorlage" ohne die Daten.
Hier der Quelltext:
<pre>
wapp.Connect;
wapp.Documents.OpenOld(Filename, EmptyParam,
EmptyParam,EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, mptyParam);
wdoc.ConnectTo(wapp.ActiveDocument);
wdoc.PrintOutOld;
wapp.Disconnect;
wapp.Quit;
wapp.Disconnect;
</pre>

Mit freundlichen Grüßen
Mathias

EDIT: Ich glaube das gehört jetzt eher in das Unterforum "Office-Automation", vieleicht kann ein Admin es verschieben.

[Mathias Fabian]

So, hab dann doch noch ne Lösung gefunden
Für alle die es interessiert:

<pre>
wapp.Connect;
wapp.Documents.OpenOld(Filename, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam);
wdoc.ConnectTo(wapp.ActiveDocument);
wapp.activedocument.MailMerge.ViewMailMergeFieldCo des := wdToggle;
with wapp.ActiveDocument.mailmerge do
begin
wapp.ActiveDocument.MailMerge.Destination := wdSendToPrinter;
wapp.ActiveDocument.MailMerge.Execute(emptyparam);
end;
wdoc.Disconnect;
wapp.Quit;
wapp.Disconnect;
</pre&gt