Access - SendKeys

Esta pregunta ya la planteé en el foro hace unos dias pero después de la amable respuesta de Jesús, todavía sigo sin encontrar la solución. Vamos allá.

Desde mi programa Accés y asociado a un botón, tengo el siguiente código:
Dim appId
'Abro una aplicación y cargo un archivo
appId = Shell("C:\Archiv~1\genopro\genopro.exe _
\\Server1\uts\archivo) & ".gno", _
vbMaximizedFocus)
'Activo la aplicación
AppActivate appId
'Mediante Sendkeys, exporto este archivo a formato
'MetaFile para poder incluirlo en un informe
SendKeys "%t", True
SendKeys "{UP}{ENTER}", True
SendKeys "c:\TreballSocial\emf", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{ENTER}", True
SendKeys "%", True
SendKeys "{UP}", True
SendKeys "{UP}", True
SendKeys "{ENTER}", True
DoEvents
'Imprimo el informe
DoCmd.OpenReport "ValoracioSocial", acViewNormal

Este informe tiene una imagen que es el archivo metafile.

Pues bién, muchas veces no termina de procesar el SendKeys y ya me imprime el informe. Que pasa?

Saludos cordiales

Enric

Supongo que el archivo te lo coge correctamente.
A partir de aquí lo que haría es separar los dos eventos, porque la funcion SendKeys puede quedarse activada y"resbalar" por el código.
Pruebalo y si no, veremos otra cosa.

Gracias Jesús

Después de una ristra de pruebas di con una posible solución y parece que funciona!!! (lo que me dices en tu mensaje de separar el código en distintos eventos no lo he probado).
En la ayuda de Access venia un ejemplo idéntico al que yo implementé pero usando la Calculadora y funcionaba. Si en lugar de la Calculadora abria por ejemplo el Notepad, dejaba de funcionar. Me abria bién el archivo que le pasaba como parámetro pero los sendkeys los recibia Access.
Finalmente lo que hice fue definir un bucle después de la linia del Shell...

dim appId
appId=Shell(....)
while appid=0
wend
sendkeys...

De momento chuta