OLE

← →
RomaIzDurdoma © (2003-01-28 22:28) [0]

С помощью ОЛЕ создаю отчет в Ворде, распечатываю и закрываю Ворду. Но на медленных машинах Ворда не успевает подготовить к печати документ, и поэтому перед закрытием ругается. Вопрос - как узнать что Ворда отправила весь документ на печать?

← →
Palladin © (2003-01-29 02:43) [1]

посмотри в справку по VBA
ИМХО:а вообще мне правильней по моему сохранять файл на диск и через ShellExecute открывать в ворде на предпросмотр этот файл. Пусть пользователь сам решает печатать его или нет.

← →
asmith (2003-01-29 12:45) [2]

Похоже, что с помощью OLE-автоматизации это сделать нельзя. Так у объекта Application начиная с Word2000 появилось только событие DocumentBeforePrint и не больше.

← →
Palladin © (2003-01-29 13:04) [3]

кстати решение может быть таким

isPrinting:=true; while isPrinting do begin isPrinting:=false; try WApp.Quit; except isPrinting:=true; end; end;

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

← →
Chubais © (2003-01-29 13:09) [4]

> Palladin © (29.01.03 13:04)

сомнительное какое-то решение...
хотя бы sleep поставил штоль для убедительности...

← →
Palladin © (2003-01-29 13:14) [5]

я написал принцип а не версию для реализации...

← →
Chubais © (2003-01-29 13:54) [6]

> кстати решение может быть таким

> я написал принцип а не версию для реализации...

← →
Palladin © (2003-01-29 14:15) [7]

Eclusive decision for Chubais

bTryMore:=true; while bTryMore do begin bTryMore:=false; nTimeOutValue:=300; nTicCounter:=0; isPrinting:=true; while (isPrinting) and (bTimeOutValue=nTicCounter) do begin isPrinting:=false; try WApp.Quit; except isPrinting:=true; end; Sleep(3000); nTicCounter:=nTicCounter+1; end; if bTimeOutValue=nTicCounter then bTryMore:=Application.MessageBox("Время ожидания вывода на печать закончилось. Отменить печать?",MB_YESNO)=ID_NO; end;

← →
Palladin © (2003-01-29 14:17) [8]

ой...
ошибка...
не (bTimeOutValue=nTicCounter), а
(nTimeOutValue>nTicCounter)

> Eclusive decision for Chubais

по всей видимости, имелось в виду Exclusive solution...

да именно это и имелось ввиду...
в английском я не силен...

А если закрывать Ворду так, чтобы он сам закрывался когда сможет? т.е не закрывать его принудительно, а разрешить закрыться когда он закончит свои фоновые процессы.
Может есть такой способ? Необязательно OLE.

OLE Найти похожие ветки