затем меняет значение и еще раз отправляет документ на печать.
мне необходимо реализовать задержку в итерациях цикла. Я это сделал через Application.Wait. Но вместо паузы все зависает
For i = 1 To x
'действие которое будет зациклено
ActiveWindow.SelectedSheets.PrintOut Copies:=c, Collate:=True, _
IgnorePrintAreas:=False 'печать активного листа количество копий равно значению переменной c
Range("G12").Value = CLng(Range("G12").Value) + 1 'каждый раз после печати увеличиваем значение в ячейке G14 на 1
waittime = Now() + 10
Application.Wait waittime
Next
В чем может быть беда?
В том как задано время.
Обсуждают сегодня