Adobe Acrobat desde VPF

West wind tiene una clase (FREEWARE) que trabaja de maravilla. Estas es la
liga http://www.west-wind.com/files/wwPDF.Zip

pero creo vas tener que conseguirte el Acrobat PDF Writer o el Acrobat PDF
Distiller

L. Ortega
El Paso Tx.


"Julio Gutierrez" wrote in message
news:%

Hola a Todos:

Primeramente gracias a Amy por su ayuda en los formularios, funciono muy
bien.

Ahora tengo una pregunta. Puedo mostar un archivo PDF desde mi aplicacion
VPF6?. Estuve leyendo que tengo que tratarlo como objeto o algo asi.

Tengo escaneada la ficha del estudiante (en PDF) y deseo poner un boton
que si lo desea ver lo presionen y se vea el archivo PDF.

Gracias de antemano por la ayuda,

Juliog


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Hola,
Yo he solucionado este tema con una clase que he hecho y utilizo en mis
programas.
Esta clase lo que hace es llamar al programa que tiene asignada la extensión
PDF (Normalmente Adobe Reader o Profesional)

La clase la llamo cmdVerPdf y está basada en CommandButton
Le añadí 2 propiedades :
cArchivo - (Nombre del archivo a visualizar con la extensión)
Nota : Al crear esta propiedad, activé el método ASSING
cDirectorio - (Directorio donde tengo los archivos PDF, p.e. "C:\Documentos
Pdf\Facturas\" )

Métodos :

Método INIT
This.cArchivo=""

Método ASSING
LPARAMETERS vNewVal
THIS.carchivo = m.vNewVal
cFile=Alltrim(This.cDirectorio)+Alltrim(This.cArchivo)
IF !FILE(cFile) && Si no existe el archivo
This.cArchivo=""
This.ToolTipText="No hay documento seleccionado" && Para informar al
usuario
This.Enabled=.F. && Desactiva botón
ELSE && Si existe
This.ToolTipText="Ver pdf - "+Alltrim(This.cArchivo) && Para inormar al
usuario
This.Enabled=.T. && Activa botón
ENDIF

Método CLICK
cFile=Alltrim(This.cDirectorio)+Alltrim(This.cArchivo)
IF !FILE(cFile)
messagebox(cFile+chr(13)+"Archivo no existe")
else
DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
INTEGER hwnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
* Abre el documento
=Shellexecute(0,"Open",cFile,"","",3)
endif

Espero que te sirva

"Julio Gutierrez" escribió en el mensaje
news:%

Hola a Todos:

Primeramente gracias a Amy por su ayuda en los formularios, funciono muy
bien.

Ahora tengo una pregunta. Puedo mostar un archivo PDF desde mi aplicacion
VPF6?. Estuve leyendo que tengo que tratarlo como objeto o algo asi.

Tengo escaneada la ficha del estudiante (en PDF) y deseo poner un boton
que si lo desea ver lo presionen y se vea el archivo PDF.

Gracias de antemano por la ayuda,

Juliog


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway