Macro autoexecutavél

[Contador NS]

Me ajudem

Pessoal preciso fazer essa macro simples funcionar, mas não funciona.

Preciso imprimir este documento a cada 2 minutos automaticamente, por que a impressora não pode imprimir tudo de uma vez se não esquenta.

O começo da Macro é quanto a impressão o restante, era as repetições automaticas, mas não funciona.

Sub imprimir()
'
' imprimir Macro
'
'
ActiveDocument.PrintOut
End Sub

Private Sub Auto_open()
Application.OnTime Now + TimeValue("00:02:00"), "imprimir"
Application.OnTime Now + TimeValue("00:04:00"), "imprimir"
Application.OnTime Now + TimeValue("00:06:00"), "imprimir"
Application.OnTime Now + TimeValue("00:08:00"), "imprimir"
Application.OnTime Now + TimeValue("00:10:00"), "imprimir"
Application.OnTime Now + TimeValue("00:12:00"), "imprimir"
Application.OnTime Now + TimeValue("00:14:00"), "imprimir"
Application.OnTime Now + TimeValue("00:16:00"), "imprimir"
Application.OnTime Now + TimeValue("00:18:00"), "imprimir"
Application.OnTime Now + TimeValue("00:20:00"), "imprimir"
Application.OnTime Now + TimeValue("00:22:00"), "imprimir"
Application.OnTime Now + TimeValue("00:24:00"), "imprimir"
Application.OnTime Now + TimeValue("00:26:00"), "imprimir"
Application.OnTime Now + TimeValue("00:28:00"), "imprimir"
Application.OnTime Now + TimeValue("00:30:00"), "imprimir"
Application.OnTime Now + TimeValue("00:32:00"), "imprimir"
Application.OnTime Now + TimeValue("00:34:00"), "imprimir"
Application.OnTime Now + TimeValue("00:36:00"), "imprimir"
Application.OnTime Now + TimeValue("00:38:00"), "imprimir"
Application.OnTime Now + TimeValue("00:40:00"), "imprimir"
Application.OnTime Now + TimeValue("00:42:00"), "imprimir"
Application.OnTime Now + TimeValue("00:44:00"), "imprimir"
Application.OnTime Now + TimeValue("00:46:00"), "imprimir"
Application.OnTime Now + TimeValue("00:48:00"), "imprimir"
Application.OnTime Now + TimeValue("00:50:00"), "imprimir"
Application.OnTime Now + TimeValue("00:52:00"), "imprimir"

End Sub

Editado Maio 16, 2011 por kuroi
Adicionar tag CODE

[kuroi]

movido pra vba.

agora "não funciona" pode significar 1000 coisas, explique melhor.