как приостановить выполнение процедуры

@НикоН · Регистрация: 21.01.2010

Доброго всем времени суток

Из Excel создаю, печатаю и закрываю документ Word без сохранения

Visual Basic

Sub Create_ACT()
...
...
    W.PrintOut Copies = 4
 
    W.Quit wdDoNotSaveChanges
End Sub

Но документ закрывается быстрее, чем успевает напечататься О_о
Как поставить таймаут перед закрытием документа?

@teksis · 05.09.2011, 13:38

Application.Wait (Now + TimeValue("0:00:30")) задержка на 30 секунд, можешь поставить необходимое время.

@~~Busine2009~~ · 06.09.2011, 20:29

Код:

Visual Basic

1
2
3

Sub Макрос1()
    ActiveDocument.PrintOut Background:=False
End Sub

@teksis 5 / 5 / 0 Регистрация: 10.03.2011 Сообщений: 27
	05.09.2011, 13:38	2
	Application.Wait (Now + TimeValue("0:00:30")) задержка на 30 секунд, можешь поставить необходимое время. 1

	06.09.2011, 20:29