Afficher Pdf dans une form

[tyrese69_]

Bonsoir à tous,

 

La fonction suivante fonctionne bien.

 

 

(dcl_AxControl_Invoke pdf_formpdf_PDF1 "setZoom" 200.0)

 

Mais est il possible d'accèder à :

 

"setView" viewmode: Fit

 

Daniel OLIVES

 

(defun c:pdf ()

; Teste si Adobe PdF Reader est installé

(if (acrobat_is_installed)

(progn

(command "opendcl")

(dcl_project_load "pdf")

(dcl_form_show pdf_formpdf)

(dcl_AxControl_Put pdf_formpdf_PDF1 "src" "C:\\TPS\\Acad\\Routines\\Aide\\Ensemble_pour_prog.pdf")

(dcl_AxControl_Invoke pdf_formpdf_PDF1 "setZoom" 200.0)

)

)

(princ)

); pdf

(defun acrobat_is_installed (/ strCLSID strFile)

(and (vl-registry-descendents "HKEY_CLASSES_ROOT\\AcroPDF.PDF")

(setq strCLSID (vl-registry-read "HKEY_CLASSES_ROOT\\AcroPDF.PDF\\CLSID"))

(setq strFile (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\CLSID\\" strCLSID "\\InprocServer32")))

(findfile strFile))

); acrobat_is_installed

[tyrese69_]

Re,

 

Aprés quelques essais:

 

(dcl_AxControl_Invoke pdf_formpdf_PDF1 "setView" "Fit")

 

Ce n'est qu'un problème de syntaxe !

 

Attention aux minuscules et majuscules !

 

Daniel OLIVES