Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.06.28;
Скачать: CL | DM;

Вниз

Печать документа через Word   Найти похожие ветки 

 
silversmith   (2006-09-18 10:39) [0]

Добрый день уважаемые коллеги.

Подскажите как решить следующую проблему:
Я печатаю из своего приложения доковский документ методом PrintOut
Как бы мне узнать, что документ уже распечатался и от него можно отцепиться
W:=CreateOleObject("Word.Application");
W.Documents.Open(FileName);
W.ActiveDocument.PrintOut;
Вот здесь бы я хотел подождать момента, когда он весь уйдет на печать и сделать;
W.Quit;
W:=Unasigned;

Delphi 7, MS Windows XP SP2, Word2000


 
umbra ©   (2006-09-18 10:56) [1]


> Вот здесь бы я хотел подождать момента, когда он весь уйдет
> на печать и сделать;

в ворде такого способа нет, судя по всему. Надо просто сделать паузу, длительность которой подобрать эмпирически.


 
silversmith   (2006-09-18 11:02) [2]

Спасибо за ответ.
Жаль, но это не вариант. Печатается большое количество документов - в районе нескольких сотен в цикле и ждать у заказчика никаких сил не хватит если у меня к примеру средний документ уходит на печать 5-7 секунд.

Может можно как-то у винды спросить состояние принтера? Правда это уже оффтоп в Corba и COM.


 
Машихин Алексей   (2006-09-19 13:14) [3]

Я сделал так :

try
 w:=createoleobject("Word.application");
 w.Documents.Open(s_out);
 w.Application.PrintOut(false);
                                ^^^
                                  вот это означает что надо печатать не в фоновом режиме!
 w.quit;
except
 w.quit;
end;


 
Virgo_Style ©   (2006-09-19 14:09) [4]

BackgroundPrintingStatus ?



Страницы: 1 вся ветка

Текущий архив: 2009.06.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
15-1240518603
Юрий
2009-04-24 00:30
2009.06.28
С днем рождения ! 24 апреля 2009 пятница


11-1202317785
eLiAs
2008-02-06 20:09
2009.06.28
[wince] add an image background in a listview control


2-1241790968
Гена
2009-05-08 17:56
2009.06.28
Нужно выполнить проверку DBGrid a


2-1242068353
Wind
2009-05-11 22:59
2009.06.28
Сравнить содержимое двух потоков TMemoryStream


15-1240259891
Юрий
2009-04-21 00:38
2009.06.28
С днем рождения ! 21 апреля 2009 вторник