-
Проблема вот какая - создаю 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;
Так вот ворд упорно выводит свои диалоги... Delphi 5 и 7, Word 97-2000-XP - результат один
Посоветуйте, как добиться ПОЛНОСТЬЮ фоновой работы? Спасибо!
-
Interactive поищи в справке VBA
-
упоминается только в одном месте: "You can add controls to your documents to create interactive documents, such as online forms"... К сожалению, мне это не надо...
-
Таже проблема - нужно избавиться от окна "Поля раздела выходят за границы печати"
Не нашли решения?
-
а если скрыть аппликэйшн или документ?
-
XlApp.DisplayAlerts := False;
|