Application PRINTPREVIEW de Iexplore et Word
# 0000000618
ajouté le 13/06/2008 20:12:06 et modifié le 13/06/2008
consulté 8408 fois
Niveau
initié
Version(s) Foxpro : VFP 6.0
Description
Ce programme affiche un aperçu avant impression (option du menu fichier IE ou Word au choix avec disponibilté du bouton imprimer). et concerne:
-les page web
-les fichiers txt et les menus mpr
-les programmes prg
-les tables dbf
-les états frx
-les formulaires scx
-les images jpg,gif
*dans l'option Word vous pouvez rajouter les fichiers doc,rtf,xls,...(tout ce qui s'ouvre avec Word)
*On peut en rajouter d'autres.
Il utilise en partie genHTML.prg (appellé avec ( _genHTML) ) pour convertir les tables,états et forms en pages web.
Une réserve pour les états (quadrillage +objets enlevés) et les forms (ne traite pas les containers...utilsation élémentaire
en vfp6.0)
Ce programme est livré avec VFP 6.0
NB:cadrer votre sortie de façon à celle qu'elle soit inférieure à la largeur de page.Portrait ou paysage avec bouton toolbar.
*fermer Word en fin de traitement
J'espère que c'est du pas du tout vu....Tout commun mortel peut se tromper ! !
* benameuryousfi1@gmail.com El Bayadh le 12 juin 2008
Code source :
* benameuryousfi1@gmail.com El Bayadh le 12 juin 2008 *Afficher aperçu avant impression IExplore ou Word (zoomer/paginer/ imprimer.) *Concerne page web,txt,prg,menu MPR,table,état,formulaire,images(jpg,gif) *mise en page préalable du texte à faire *Dans les 2 méthodes l'application doit être visible (pour afficher la fenêtre enfant PrintPreview). *Word et Iexplore doivent être présents sur la station pour chaque méthode *Vous pouvez utiliser do <program> with <paramètre afile> ***********************************************************************************************
afile=getfile('htm|html|txt|prg|dbf|frx|scx|mpr|jpg|gif') ifempty(afile) return
endi
ocap=.f.&& utilisé pour la création de fichier temporaire
caselower(justext(afile))="dbf"&& table
oCap=.t. use (afile)
afile="c:\windows\temp\ytempor.htm" dO (_GenHTML) WITH afile, ALIAS(), 0 && Créer page web sans l'ouvrir use
caselower(justext(afile))="frx"orlower(justext(afile))="scx"&& état ou form
oCap=.t. alias=afile
afile="c:\windows\temp\ytempor.htm" dO (_GenHTML) WITH (afile), ALIAS, 0 && Créer page web sans l'ouvrir
apIE=CREATEOBJECT("internetexplorer.application")
apIE.navigate(afile)
apIE.visible=.t. with apIE
ieHandle=.hwnd
.left=-10000 &&On ne veut pas voir la fenêtre IE mais uniquement l'aperçu avant impression.
.width=sysmetric(1)
.height=sysmetric(2)
.top=0 endwith dowhile apIE.busy or apIE.readystate#4 enddo DECLARELong BringWindowToTop in Win32API Long&&Ramener fenêtre Iexplore au zorder(0)
=bringwindowtotop(ieHandle)
apIE.ExecWB(7,0) &&aperçu avant impression IExplore
**nettoyage fichier temporaire créé if oCap=.t.
dele file (afile)
endi *********** inkey(1) ifmessagebox("Fermer Internet Explorer ?",4+64,"Quitter")=6
apIE.quit
endi
**2è méthode avec Word (masquer le code Iexplore précédent entre slashes et activer celui ci(enlever text et endtext) text
#define wdCollapseStart 1
#define wdCollapseEnd 0
Retour à la liste
Algérie
Fiche personnelle
Note des membres