PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV (versiones precedentes) → Impression d'un document *.doc
Impression d'un document *.doc
Iniciado por partenaire-technique, 20,may. 2003 19:21 - 2 respuestas
#1
Publicado el 20,mayo 2003 - 19:21
J'ai besoin d'imprimer un fichier .doc à partir d'une application développée
en Windev 5.5.
Je connais le chemin complet de ce fichier.
Existe-t-il une fonction permettant d'imprimer directement ou quelqu'un a
-t-il un moyen pour le faire ?
Merci d'avance
#2
Publicado el 22,mayo 2003 - 13:11
Bonjour,

J'ai trouvé le suivant : (impression via wordpad -
ça devrait fonctionner même si word n'est pas installé -
mais je n'ai pas testé)

MonFichier est une chaine = "c:\MonDocument.doc"
MaCommande est une chaine =...
registrelit("HKEY_CLASSES_ROOT\Wordpad.Document.1\Shell\Print\Command",0)
MaCommande = remplace(MaCommande,"%ProgramFiles%","C:\Program Files")
MaCommande = remplace(MaCommande,"%1",MonFichier)
si pas DDELANCE(MaCommande,ddeinactif,faux) alors
erreur("Impossible de lancer WORDPAD ("+ddecr()+")")
fin




"Jean François MORIN" <partenaire-technique@wanadoo.fr> wrote:

J'ai besoin d'imprimer un fichier .doc à partir d'une application développée
en Windev 5.5.
Je connais le chemin complet de ce fichier.
Existe-t-il une fonction permettant d'imprimer directement ou quelqu'un

a
-t-il un moyen pour le faire ?
Merci d'avance

#3
Publicado el 28,mayo 2003 - 18:22
Voir l'api windows (sur msdn.microsoft.com) "ShellExecuteExA"

A la place de la commande "open" utilise "print"... le tour et jouer.

(Voir structure : "SHELLEXECINFOA")
ExecInfo est un SHELLEXECINFOA

ExecInfo:cbSize = Dimension(ExecInfo)
ExecInfo:fMask = SEE_MASK_NOCLOSEPROCESS
ExecInfo:hwnd = AppelDLL32("User32", "FindWindowA", "Progman", "Program
Manager")
ExecInfo:lpVerb = "Open" // A remplacer par "Print"
ExecInfo:lpFile = &vlc_LigneCMD
ExecInfo:lpParameters = &vlc_Params
ExecInfo:lpDirectory = &vlc_RepTravail
ExecInfo:nShow = SW_SHOWDEFAULT
ExecInfo:hInstApp = Null
ExecInfo:lpIDList = Null
ExecInfo:lpClass = Null
ExecInfo:hkeyClass = Null
ExecInfo:dwHotKey = Null
ExecInfo:hIcon = Null
ExecInfo:hProcess = Null
vlb_Res=Appeldll32("SHELL32","ShellExecuteExA",&ExecInfo)

Salutations,

--
Aloïs Cochard -
Mail : alois@business-team.ch
--

"RS" <rwsansom@hotmail.com> a écrit dans le message de
news:3ecca24b$1@news....

Bonjour,

J'ai trouvé le suivant : (impression via wordpad -
ça devrait fonctionner même si word n'est pas installé -
mais je n'ai pas testé)

MonFichier est une chaine = "c:\MonDocument.doc"
MaCommande est une chaine =...
registrelit("HKEY_CLASSES_ROOT\Wordpad.Document.1\Shell\Print\Command",0)
MaCommande = remplace(MaCommande,"%ProgramFiles%","C:\Program Files")
MaCommande = remplace(MaCommande,"%1",MonFichier)
si pas DDELANCE(MaCommande,ddeinactif,faux) alors
erreur("Impossible de lancer WORDPAD ("+ddecr()+")")
fin




"Jean François MORIN" <partenaire-technique@wanadoo.fr> wrote:

J'ai besoin d'imprimer un fichier .doc à partir d'une application

développée
en Windev 5.5.
Je connais le chemin complet de ce fichier.
Existe-t-il une fonction permettant d'imprimer directement ou quelqu'un
a

-t-il un moyen pour le faire ?
Merci d'avance



→ Volver a WINDEV (versiones precedentes)