Aller au contenu

Afficher Pdf dans une form


tyrese69_

Messages recommandés

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

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité