IMPRESSION D'UN DOCUMENT WORD OU PDF

Messages postés
142
Date d'inscription
jeudi 12 février 2004
Statut
Membre
Dernière intervention
20 mai 2008
- - Dernière réponse : cs_drikc
Messages postés
3
Date d'inscription
vendredi 14 mars 2003
Statut
Membre
Dernière intervention
12 septembre 2006
- 12 sept. 2006 à 12:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/29525-impression-d-un-document-word-ou-pdf

cs_drikc
Messages postés
3
Date d'inscription
vendredi 14 mars 2003
Statut
Membre
Dernière intervention
12 septembre 2006
-
Pas grave vais chercher pourquoi ça marche sur mon poste et pas les autres.

Merci quand même.
cs_Waldo2188
Messages postés
142
Date d'inscription
jeudi 12 février 2004
Statut
Membre
Dernière intervention
20 mai 2008
-
Si j'ai bon souvenir, le controle Timer est un objet que l'on retrouve dans le logiciel ActiveX Control Pad,
et celui-ci est utilisé à la ligne 46
45 # 'mise en route du timer
46 # Timer1.Enabled = True
il permet de marquer une pose le temps que la page s'imprime.

je suis désolé de ne pas pouvoir apporter plus de précision, ce code a été fait lors de l'un de mes stage (2005), et depuis celui ci je n'est plus touché au VB.
cs_drikc
Messages postés
3
Date d'inscription
vendredi 14 mars 2003
Statut
Membre
Dernière intervention
12 septembre 2006
-
A priori il fonctione avec la sp2, sur mon poste (sp2 + toutes les maj) c'est le seul endroit ou il fonctionne, sur les autres poste la il deconne.

En description tu dis "Au faite vous allé avoir besoin d'un controle Timer... " cad il y a quelque chose a installer?

Bien a toi.
cs_Waldo2188
Messages postés
142
Date d'inscription
jeudi 12 février 2004
Statut
Membre
Dernière intervention
20 mai 2008
-
Salut,
Franchement aucune idée. Et comme ca fait un moment que je n'est pas touché à ce code, c'est possible qu'il ne fonctionne plus avec XP SP2.
Désolé de ne pas pouvoir t'apporter plus de réponse.
cs_drikc
Messages postés
3
Date d'inscription
vendredi 14 mars 2003
Statut
Membre
Dernière intervention
12 septembre 2006
-
Slt,

J'ai un soucis avec ce code, il me fait planter internet explorer, y a t'il des trucs spécifique a installer pour le faire marcher?

Bien à vous.
cs_Waldo2188
Messages postés
142
Date d'inscription
jeudi 12 février 2004
Statut
Membre
Dernière intervention
20 mai 2008
-
Voila les Jeune il y a un zip, et un fichier texte pour tout expliquer!
Amusez vous!
samih5
Messages postés
16
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
1 février 2006
-
Salut Waldo
Un zip avec un exmple serais le bien venu
sinon code bien commenté.
attend le zip pour la note.

samih5
cs_Patrice99
Messages postés
1222
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018
-
Ben j'ai pas testé ton programme en fait, en tout cas il est bien commenté.
cs_Waldo2188
Messages postés
142
Date d'inscription
jeudi 12 février 2004
Statut
Membre
Dernière intervention
20 mai 2008
-
Au faite pouriez vous mêtre une note svp, c'est juste pour savoir ce que vaut vraiment cette source, car croyez moi j'en ais plutôt sué (pour ne pas être vulguaire) en ce qui concerne la récupération du handle d'acrobat Reader.

++
cs_Waldo2188
Messages postés
142
Date d'inscription
jeudi 12 février 2004
Statut
Membre
Dernière intervention
20 mai 2008
-
Merci JoePatent, je ne connaissais pas cette fonction, j'ai donc mis à jour la source.
Merci encore
cs_Patrice99
Messages postés
1222
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018
-
Voici comment attendre que Word ait fini l'impression en cours (technique trouvée en cherchant Word isPrinting avec Google dans les forums)
oWrd.Application.Options.PrintBackground = False
JoePatent
Messages postés
171
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
20 juillet 2008
-
Juste une correction très mineur.

[teste = Right$(unChemin, 3)
If teste "pdf" Or teste "PDF" Then]

Il est mieux de....

teste = ucase$(Right$(unChemin, 3))
If teste "PDF" Then

L'extension pourrait être PdF ou pDf, etc
cs_Waldo2188
Messages postés
142
Date d'inscription
jeudi 12 février 2004
Statut
Membre
Dernière intervention
20 mai 2008
-
le principal c'est que ca marche!
cs_Patrice99
Messages postés
1222
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018
-
Ca marche nickel :
oWrd.Documents.Open sCheminDoc
oWrd.ActivePrinter = "MonImprimante"
oWrd.Application.PrintOut FileName:=sCheminDoc, OutputFileName:=sCheminPrn
cs_Patrice99
Messages postés
1222
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018
-
C'est un menu contextuel dans l'explorateur, sur le bouton droit de la souris, mais je n'ai rien trouvé pour choisir l'imprimante pour Word, je pense que je vais utiliser ta méthode, car là on peut choisir l'imprimante.
cs_Waldo2188
Messages postés
142
Date d'inscription
jeudi 12 février 2004
Statut
Membre
Dernière intervention
20 mai 2008
-
Je ne vois pas de quoi tu parle, pourais tu être plus explicite?
Et à la limite proposé ta solution, car ce que tu dis m'intéresse beaucoup.

++
cs_Patrice99
Messages postés
1222
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018
-
Les fichiers .doc et .pdf possède un menu contextuel Imprimer : ce serait peut être plus simple de l'utiliser. Je cherche un moyen de pouvoir choisir en plus l'imprimante en ligne de commande (en évitant de changer l'imprimante par défaut, si possible), si quelqu'un a ca, je suis preneur.
cs_Waldo2188
Messages postés
142
Date d'inscription
jeudi 12 février 2004
Statut
Membre
Dernière intervention
20 mai 2008
-
J'ai essayé de commanté du mieux possible, donc si vous avez de remarque constructive, ou des question je vous attend!