Código para "Pausar"

[Philipe Viana]

Bom dia,

alguém conhece algum código que posso usar para pausar a aplicacao!

porque na minha aplicação eu tenho alguns relatórios, e tenho que chama-los e fecha-los automaticamente.

a única função que eu conheco é a Sleep(), mas ela trava com o uso dos relatorios.

Preciso de outra alternativa!

Grato!

[Mendrot]

Boa tarde !

Você pode tentar utilizar o Do While, é "gambiarra" total, mas é uma outra forma de "travar" a execução.

Do While x < 100000000

x = x + 1

Loop

Abraço

[Philipe Viana]

Vlw Mendrot!

Já tinha testado essa "Gambiarra" .. heheh! mas isso não é legal, vai variar de máquina pra máquina.

Mas vlw!

abraço!

[JoséA]

Veja um exemplo, cole/copie em um Módulo e rode a macro Time:

Sub Time()
'aplica o time atual + 2 segundos para executar o procedimento
Application.OnTime Now + TimeValue("00:00:02"), "ExecutarMacro"
End Sub
Sub ExecutarMacro()
    MsgBox "Atenção! Apague esta MsgBox e coloque seu procedimento. "
End Sub