shell32 no funciona en win10

[extremo]

Amigos

Este codigo no funciona en Win10

DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGER hwnd, STRING lpVerb, STRING lpFile, STRING lpParameters, STRING lpDirectory, LONG nShowCmd

cRutaPDF = "g:\UrgPediatrica\doc002.pdf"

=Shellexecute(0,"Print","g:\UrgPediatrica\doc002.pdf","","",0)

probe tambien con:

=Shellexecute(2,"Print","g:\UrgPediatrica\doc002.pdf","","",0)

Esta ultima me funciona en win xp pero no en win10.

El Visual Fox lo tengo instalado en win10 a 64 bits.

Alguna idea?

Bendiciones

[francisco prieto]

Pero estas comparando entonces peras con bananas... porque dudo que el xp sea de 64 btis... bah yo lo tengo pero dudo que esa haya sido tu prueba.

Sin embargo el error que reportas no es nuevo...

http://www.vbforums.com/showthread.php?802137-RESOLVED-Shellexecute-not-working-in-Windows-10

Y en todos los sitios que encontre hablan de poner todo en modo compatibilidad...

Saludos,

Pancho

Córdoba

Argentina

[Patricio Muñoz]

Gracias Francisco

El código de la pagina que me enviaste funciona bien en win10 (ya lo probé):

ShellExecute(0, "open", "http://www.micosoft.com", 0, 0, 1)

Pero no así el código que es para imprimir archivos directamente a la impresora

=Shellexecute(0,"Print","g:\UrgPediatrica\doc002.pdf","","",0)

Mi problema es que el cliente tiene win10 a 64 bit y es en esos equipos que no funciona el código, de hecho no marca error es como si ignorara esa instrucción. Yo también estoy trabajando con equipo de win10 y busqué un equipo antiguo con XP para probar el programa y el programa funciona bien.

Probé el modo de compatibilidad que menciona el artículo pero lamentablemente no funcionó

Bendiciones

--

Patricio Muñoz

Pro&Tech

Analista en Sistemas

[Patricio Muñoz]

mmmmm es mi equipo.... en otros la instruccion funciona con win10.... es buena la noticia pero también es mala porque eso quiere decir que mi equipo esta con problemas.

Bendiciones

[Antonio Meza]

Hola Extremo!!

Te cuento que ayer necesitaba abrir los PDF y uso windows 10 64 y si me funciona sin problemas, Intente hacer lo que comentabas de imprimir 

WAIT windows Shellexecute(0,"Print", _archivo, "","",0)

y me marca el error 31, investigue de que se trata el error

No association for file extension

Instale el Acrobat Readers porque no lo tenia instalado y los PDF los mostraba en el explorador de internet Edge y listo me abre el Acrobat lo cierra solo y ya me muestra la pantalla para imprimir, espero te sirva.

saludos

Antonio Meza