ник: osmor
ловить ошибку, ждать пока не исчезнет, считать кол-во повторов
примерно так
ErrHandler:
If Err.Number = 282 Then 'Невозможно открыть DDE канал
' Эта ошибка может возникать когда Acrobat загружился не польностью
' делаем Max282Errors попыток перез тем как вернуть AcroDDEFailed = True
Error282Count = Error282Count + 1
If Error282Count <= Max282Errors Then
PauseFor 3
Resume
Else
AcroDDEFailed = True
Resume Next
End If
End If
MsgBox "Error in PrintPDF sub Error# " & Err.Number & " " & Err.Description & "."
End Sub
|
'Error282Count - переменная в которой считаем кол-во повтором
'Max282Errors - константа определяющая сколько раз допускается ошибка после превышения выходим из функции
Private Sub PauseFor(iSeconds As Integer)
'Пауза iSecond секунд
Dim sngTimer As Single
sngTimer = Timer
While Timer - sngTimer < iSeconds
DoEvents
Wend
End Sub
|