VPF::MS Word, метод PrintOut - Форум программистов

Medved

Дата 25.6.2004, 05:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

PrintOut.
Как дождаться окончания печати документа, чтобы можно было освободить COM объект Word?

Цитата

Т.е. надо закрыть Word после окончания печати. как узнать что печать окончена? Он спрашивает "печать еще не окончена закрыть Word ?" вот.. а мне надо чтоб молчал

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

Serggggg

Дата 25.6.2004, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 12.12.2003
Где: Донецк, Украина

Репутация: нет
Всего: нет

Я делал так - ничего не вылетало. Попробуй.

Код


var
  Excel: OleVariant;
  WBk : OleVariant;
  SaveChanges: OleVariant;
.......
begin
  Excel:=CreateOleObject('Excel.Application');
  WBk:=Excel.Workbooks.Open(path + 'Docs\Book1.xls')
.......
  WBk.Worksheets.PrintOut(Copies:=n);
  WBk.Close(SaveChanges:=False);
  Excel.Quit;
  Excel:=Unassigned;
end;

Добавлено @ 14:18
Ну, в принципе, конечно, это не Word, а Excel. Но, думаю, методы похожи.

--------------------

C уважением, Serggggg.

<Spawn>

Дата 25.6.2004, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Для того, чтобы не было вопросов у Ворда, попробуй выставить DisplayAlerts в False

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Girder

Дата 25.6.2004, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155

Если ни чего из выше сказанного не поможет,
то копай сюды: FindFirstPrinterChangeNotification и т.д.
(После чего выполняй уже Word.ActiveDocument.Close; Word.Quit).

P.S. для Serggggg: Прежде чем выводить что нить на печать надо проверить, а если ли принтеры вообще(EnumPrinters), и если есть предоставить пользователю выбрать принтер для печати.

Это сообщение отредактировал(а) Girder - 25.6.2004, 16:13

--------------------

Как слышим, так и пишим.
Истина где-то там...

Michail

Дата 13.10.2006, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 11.2.2003
Где: MO

Репутация: нет
Всего: нет

Похожая проблема, нужно распечатать документ ворда. В офисе 2003 все проходит на ура.
А в 2000 вылезает окно сообщения что при закрытии ворда документ не будет распечатан.
Код:

Код


var
  WDApp: OLEVariant;
  WDDoc: OLEVariant;
begin
  WDApp := CreateOleObject('Word.Application');
  WDApp.Visible := False;
  WDDoc := WDApp.Documents.OpenOld(fileName);
  WDDoc.Printout(TRUE, , , , , , , Copies );
  WDDoc.Close;
  WDApp.DisplayAlerts := False;
  WDApp.Quit;
end;

Как победить сообщение?

Это сообщение отредактировал(а) Girder - 17.10.2006, 15:02

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »