Проблема вот какая - создаю TWordApplication, в фоне открываю файл (документ) и выдаю его на печать.
Все работает. Но мне надо, чтобы при ошибках не выскакивали интерактивные окна Word
(например: "Во время последнего открытия документа произошла серьезная ошибка - восстановить?",
"Размеры раздела выходят за границы печати" и т.п.). Перепробовал кажется всё, начиная от DisplayAlerts...
Вот кусок кода:
Код
Application1 := TWordApplication.Create(nil);
with Application1 do
begin
try
fn := aFileName;
Visible := False;
fn1 := False;
fn2 := True;
DisplayAlerts := wdAlertsNone;
Documents.Open(fn, fn1, fn2, fn1, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam); // тут бывают ошибки на открытие
fn := 1;
Documents.Item(fn).Activate;
PrintOut(fn1); // а тут ошибки печати
Result := True;
except
on E: Exception do
LogError('Error printing: ' + FormatDateTime(DateTimeString, Now) + ' '
+ aFileName + ' - ' + E.Message);
end;
end;
with Application1 do
begin
try
fn := aFileName;
Visible := False;
fn1 := False;
fn2 := True;
DisplayAlerts := wdAlertsNone;
Documents.Open(fn, fn1, fn2, fn1, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam); // тут бывают ошибки на открытие
fn := 1;
Documents.Item(fn).Activate;
PrintOut(fn1); // а тут ошибки печати
Result := True;
except
on E: Exception do
LogError('Error printing: ' + FormatDateTime(DateTimeString, Now) + ' '
+ aFileName + ' - ' + E.Message);
end;
end;
Так вот ворд упорно выводит свои диалоги...
Delphi 5 и 7, Word 97-2000-XP - результат один
Не посоветуете, как добиться ПОЛНОСТЬЮ фоновой работы?
Спасибо!
