Archivo en PDF

Amigo Miguel :

Como retribucion a la ayuda que siempre me han brindado en este foro a
continuacion te muestro una forma practica de visualizar los archivos
PDF...

*********************************************************
* Vizualizar Archivos PDF desde un Formulario.
*********************************************************
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
**************************************************
DEFINE CLASS form1 AS form

DoCreate = .T.
Caption = "Visualizar Archivo PDF"
Icon = "C:\CONTROL90\APLICACION\ICONOS\ADOBE_DOC.ICO"
Name = "Form1"
WindowState = 2

ADD OBJECT cmdfile AS commandbutton WITH ;
Top = 12, ;
Left = 12, ;
Height = 27, ;
Width = 144, ;
Caption = "Select File", ;
Name = "cmdfile"

ADD OBJECT cmdexit AS commandbutton WITH ;
Top = 12, ;
Left = 168, ;
Height = 27, ;
Width = 84, ;
Caption = "E\<xit", ;
Name = "cmdexit"

ADD OBJECT olecontrol1 AS olecontrol WITH ;
OLECLASS = "PDF.PdfCtrl.5", ;
Top = 48, ;
Left = 12, ;
Height = 192, ;
Width = 348, ;
Name = "Olecontrol1"

PROCEDURE Init
ThisForm.ReSize()
ENDPROC

PROCEDURE ReSize
Thisform.Olecontrol1.Height = Thisform.Height + 354
Thisform.Olecontrol1.Width = Thisform.Width + 616
Thisform.Olecontrol1.Refresh()
ENDPROC

PROCEDURE cmdfile.Click
LOCAL cFile
cFile = GETFILE([PDF])
IF !EMPTY(cFile)
Thisform.Olecontrol1.LoadFile([&cFile])
ENDIF
ENDPROC

PROCEDURE cmdexit.Click
ThisForm.Release()
ENDPROC

ENDDEFINE

Saludos,

Gabriel
(Lima-Perú)


On 9 abr, 15:11, "Miguel Chaparro" wrote:

Hola.

Me gustaría saber si puedo ver archivos en PDF desde VFP. Como lo puedo
hacer?

Gracias

Insertado un Control Explorer y envíale el nombre del archivo a mostrar,
así:

AARCHIVO=alltrim(biblio2.ruta)+alltrim(biblio2.nombre)
thisform.pageframe1.activepage=2
THISFORM.PAGEFRAME1.PAGE2.SETFOCUS
THISFORM.PAGEFRAME1.PAGE2.PDF1.NAVIGATE2(AARCHIVO)
THISFORM.PAGEFRAME1.PAGE2.PDF1.VISIBLE=.T.


"Miguel Chaparro" escribió en el mensaje de
noticias:

Hola.

Me gustaría saber si puedo ver archivos en PDF desde VFP. Como lo puedo
hacer?

Gracias

Muy amable y muchas gracias.


"Miguel A." escribió en el mensaje
news:

Insertado un Control Explorer y envíale el nombre del archivo a mostrar,
así:

AARCHIVO=alltrim(biblio2.ruta)+alltrim(biblio2.nombre)
thisform.pageframe1.activepage=2
THISFORM.PAGEFRAME1.PAGE2.SETFOCUS
THISFORM.PAGEFRAME1.PAGE2.PDF1.NAVIGATE2(AARCHIVO)
THISFORM.PAGEFRAME1.PAGE2.PDF1.VISIBLE=.T.


"Miguel Chaparro" escribió en el mensaje de
noticias:

Hola.

Me gustaría saber si puedo ver archivos en PDF desde VFP. Como lo puedo
hacer?

Gracias