IMPRESSION D'UN DOCUMENT WORD OU PDF

cs_Waldo2188 Messages postés 142 Date d'inscription jeudi 12 février 2004 Statut Membre Dernière intervention 20 mai 2008 - 15 févr. 2005 à 17:35
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
12 sept. 2006 à 12:11
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
12 sept. 2006 à 11:51
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
12 sept. 2006 à 10:01
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
8 sept. 2006 à 16:45
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
7 sept. 2006 à 18:19
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
17 févr. 2005 à 09:28
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
16 févr. 2005 à 20:34
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 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
16 févr. 2005 à 16:32
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
16 févr. 2005 à 16:13
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
16 févr. 2005 à 16:09
Merci JoePatent, je ne connaissais pas cette fonction, j'ai donc mis à jour la source.
Merci encore
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
16 févr. 2005 à 15:51
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
16 févr. 2005 à 14:41
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
16 févr. 2005 à 11:45
le principal c'est que ca marche!
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
16 févr. 2005 à 11:15
Ca marche nickel :
oWrd.Documents.Open sCheminDoc
oWrd.ActivePrinter = "MonImprimante"
oWrd.Application.PrintOut FileName:=sCheminDoc, OutputFileName:=sCheminPrn
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
16 févr. 2005 à 10:44
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
16 févr. 2005 à 09:29
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 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
16 févr. 2005 à 09:22
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
15 févr. 2005 à 17:35
J'ai essayé de commanté du mieux possible, donc si vous avez de remarque constructive, ou des question je vous attend!
Rejoignez-nous