Buenos dias, he probado distintos metodos y no logro lo que deseo, es decir abrir un pdf dentro de un formulario y que no pregunte si deseo abrirlo, lo ultimo probe esto
*-----------------------------------------------
* Crear una variable publica y ponerle la ruta fisica del archivo
* PUBLIC lcFileName
* lcFileName = "c:\coa\Informe de nomrei.pdf"
*------------------------------------------------
Public oFormPDF
oFormPDF=Newobject("ShowPDF")
oFormPDF.Show()
Return
Define Class ShowPDF As Form
AutoCenter = .T.
Height = 475
Width = 730
*icon = "c:\coa\graphics\PDF.ico"
*Caption = 'Vista preliminar - '+LOWER(ALLTRIM(lcFileName))
ShowWindow = 2
Name = "ShowPDF"
ShowWindow = 1
WindowState = 2
AlwaysOnTop = .T.
cPdfFileName = SPACE(10)
Add Object owb As OleControl With ;
Top = 0, Left = 0, Height = Thisform.Height, Width = Thisform.Width, Anchor = 15, ;
OleClass = "Shell.Explorer.2", Name = "oWB"
Procedure Init
Public lcFileName
lcFileName="c:\stock\CONTROLDESTOCK.pdf"
Thisform.ShowPDF()
Endproc
Procedure Refresh
Nodefault
Endproc
Procedure ShowPDF
&& Inicializamos con una pagina en blanco
Thisform.owb.Object.Navigate2("About:Blank")
lnSeconds = Seconds()
Do While Thisform.owb.Object.Busy And Seconds() - lnSeconds < 60
DoEvents
Enddo
&& Lanzamos el PDF, donde lcFileName es una variable publica previamente validada en relacion a la existencia del ARCHIVO PDF.
Thisform.owb.Object.Navigate2(lcFileName)
lnSeconds = Seconds()
Do While Thisform.owb.Object.Busy And Seconds() - lnSeconds < 60
DoEvents
Enddo
Endproc
Enddefine
pero me lo abre con el lector pre definido como lector en windows y no dentro del form, ideas?, gracias