FiveTech Support Forums

function pdfMain(Nomerel)

local poWnd, oActiveX,IDPDF:=""

IF ! PDFActivex(@IDPDF)
RETURN(.F.)
ENDIF

nomerel:=if(nomerel=nil,"PDF Relatório",nomerel)

DEFINE WINDOW poWnd TITLE ".::"+alltrim(sis_1nom)+"::. "+nomerel+" - "+IDPDF

oActiveX = TActiveX():New( poWnd, IDPDF )

poWnd:oClient = oActiveX // To fill the entire window surface

oActiveX:Do( "LoadFile", "genesis.pdf" )
oActiveX:Do( "SetCurrentPage", 1 )

ACTIVATE WINDOW poWnd MAXIMIZED

return nil

using the function above, when closing my system the process (it MARINATES PDF) it is still active. How do I can finish him/it?

Aoki

Enrico, not kill using oActivex:end(), help-me !

function pdfMain(Nomerel)

local poWnd, oActiveX,IDPDF:=""

IF ! PDFActivex(@IDPDF)
RETURN(.F.)
ENDIF

nomerel:=if(nomerel=nil,"PDF Relatório",nomerel)

DEFINE WINDOW poWnd TITLE ".::"+alltrim(sis_1nom)+"::. "+nomerel+" - "+IDPDF

oActiveX = TActiveX():New( poWnd, IDPDF )

poWnd:oClient = oActiveX // To fill the entire window surface

oActiveX:Do( "LoadFile", "genesis.pdf" )
oActiveX:Do( "SetCurrentPage", 1 )

ACTIVATE WINDOW poWnd MAXIMIZED valid(oActiveX:End(),.t.)

return nil