Windows 10 y sendkeys access 2010
Publicado por mj_ (1 intervención) el 30/06/2016 18:22:55
Tengo un problema con Windows 10 y sendkeys con acces 2010
Estoy intentando generar unos informes que funcionaban correctamente en acces 2010 y windows 7. He desactivado UAC, pero sigue sin funcionar.
Estos informes se generaban de manera automática de postcript a pdf y detrás de uno se generaba el siguiente. El nombre de cada archivo lo pasaba a la memoria con una función "CopyToClipboard" y mediante sendkeys se pegaba automáticamente este nombre y con el return se ejecutaba la acción.
Si alguien sabe como resolver esto. Gracias
Estoy intentando generar unos informes que funcionaban correctamente en acces 2010 y windows 7. He desactivado UAC, pero sigue sin funcionar.
Estos informes se generaban de manera automática de postcript a pdf y detrás de uno se generaba el siguiente. El nombre de cada archivo lo pasaba a la memoria con una función "CopyToClipboard" y mediante sendkeys se pegaba automáticamente este nombre y con el return se ejecutaba la acción.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Call CopyToClipboard(strNomPs, False) ' función dónde copio el nombre del archivo a la memoria
' envio la combinación de teclas a la pantalla 'imprimir a archivo' y hago un intro
Sendkeys ("^(v)") ' pego el nombre del archivo
Sendkeys ("{ENTER}") ' Return
DoCmd.OpenReport strReport, acViewNormal, , strWhere 'Abre un report, dónde el nombre del archivo se debería pegar automáticamente pero falla
....
Public Sub Sendkeys(text$, Optional wait As Boolean = False)
Dim WshShell As Object
Set WshShell = CreateObject("wscript.shell")
WshShell.Sendkeys CStr(text), wait
Set WshShell = NothingEnd Sub
Si alguien sabe como resolver esto. Gracias
Valora esta pregunta
0