Hola amigos no se como abrir un archivo PDF en la version 9.03

include "FiveWin.ch"

local oWnda, oActiveX
DEFINE WINDOW oWnda title "Contratos La Quinta" mdichild
oActiveX = TActiveX():New( oWnda, "AcroPDF.PDF.1" )
oWnda:oClient = oActiveX
oActiveX:Do("LoadFile","\servidor\planilla\contratos\100101.pdf" )
oActiveX:Do("SetCurrentPage", 1 )
ACTIVATE WINDOW oWnda maximized

en la version 7.5 abre perfectamente.

Gracias por la ayuda.

Dioni wrote:Hola amigos no se como abrir un archivo PDF en la version 9.03

#include "FiveWin.ch"

function Main()
   local oWnda, oActiveX
   DEFINE WINDOW oWnda title "Contratos La Quinta" // mdichild ...no puede ser mdichild sin petenecer a una ventana mdi
   oActiveX = TActiveX():New( oWnda, "AcroPDF.PDF.1" )
   oWnda:oClient = oActiveX
   oActiveX:Do("LoadFile","Test.pdf" ) // \\servidor\planilla\contratos\100101.pdf"
   oActiveX:Do("SetCurrentPage", 1 )
   ACTIVATE WINDOW oWnda maximized

return nil

Ya sé que no es exactamente lo que se pregunta, pero por si acaso te es útil, yo hace tiempo que no utilizo activeX para abrir ficheros pdf,

me pasé a ShellExecute( ,"open", cFicheroPdf,,,1 )

y desde entonces no tengo problemas.