CADxp: Afficher Pdf dans une form - CADxp

Aller au contenu

Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

Afficher Pdf dans une form

#1 L'utilisateur est hors-ligne   tyrese69_ 

  • ceinture bleue
  • Groupe : Membres
  • Messages : 161
  • Inscrit(e) : 29-janvier 03
  • LocationLyon - France

Posté 03 octobre 2011 - 16:37

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
0

#2 L'utilisateur est hors-ligne   tyrese69_ 

  • ceinture bleue
  • Groupe : Membres
  • Messages : 161
  • Inscrit(e) : 29-janvier 03
  • LocationLyon - France

Posté 03 octobre 2011 - 17:29

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
0

Partager ce sujet :


Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

1 utilisateur(s) en train de lire ce sujet
0 membre(s), 1 invité(s), 0 utilisateur(s) anonyme(s)