**************************
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
Kill process ADOBE PDF ?!
-
- Posts: 210
- Joined: Sun Jul 23, 2006 1:15 am
Kill process ADOBE PDF ?!
FWH25+XHARBOUR 99.50
- Enrico Maria Giordano
- Posts: 7355
- Joined: Thu Oct 06, 2005 8:17 pm
- Location: Roma - Italia
- Contact:
-
- Posts: 210
- Joined: Sun Jul 23, 2006 1:15 am
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
**************************
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
FWH25+XHARBOUR 99.50