Zitat von
AgentAS:
Hallo,
@toms hat auch soweit funktioniert.
Delphi-Quellcode:
word.ActiveDocument.PrintOut;
if not VarIsEmpty(Word) then
begin
word.DisplayAlerts := 0;
word.Quit;
word := Unassigned;
end;
Doch jetzt bringt er mir dauernd, dass er das Word Dokument speichern will.
Andreas
if not VarIsEmpty(Word) then
begin
word.DisplayAlerts := 0;
SaveChanges := wdSaveChanges;
word.Quit(SaveChanges, EmptyParam, EmptyParam); {var SaveChanges: OleVariant}
word := Unassigned;
end;