cs_drikc
Messages postés3Date d'inscriptionvendredi 14 mars 2003StatutMembreDernière intervention12 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és142Date d'inscriptionjeudi 12 février 2004StatutMembreDernière intervention20 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és3Date d'inscriptionvendredi 14 mars 2003StatutMembreDernière intervention12 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és142Date d'inscriptionjeudi 12 février 2004StatutMembreDernière intervention20 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és3Date d'inscriptionvendredi 14 mars 2003StatutMembreDernière intervention12 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és142Date d'inscriptionjeudi 12 février 2004StatutMembreDernière intervention20 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és16Date d'inscriptionmardi 4 février 2003StatutMembreDerniè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és1221Date d'inscriptionjeudi 23 août 2001StatutMembreDerniè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és142Date d'inscriptionjeudi 12 février 2004StatutMembreDernière intervention20 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és142Date d'inscriptionjeudi 12 février 2004StatutMembreDernière intervention20 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és1221Date d'inscriptionjeudi 23 août 2001StatutMembreDerniè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és171Date d'inscriptionjeudi 30 janvier 2003StatutMembreDernière intervention20 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és142Date d'inscriptionjeudi 12 février 2004StatutMembreDernière intervention20 mai 2008 16 févr. 2005 à 11:45
le principal c'est que ca marche!
cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDernière intervention 9 septembre 2018 16 févr. 2005 à 11:15
cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDerniè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és142Date d'inscriptionjeudi 12 février 2004StatutMembreDernière intervention20 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és1221Date d'inscriptionjeudi 23 août 2001StatutMembreDerniè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és142Date d'inscriptionjeudi 12 février 2004StatutMembreDernière intervention20 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!
12 sept. 2006 à 12:11
Merci quand même.
12 sept. 2006 à 11:51
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.
12 sept. 2006 à 10:01
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.
8 sept. 2006 à 16:45
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.
7 sept. 2006 à 18:19
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.
17 févr. 2005 à 09:28
Amusez vous!
16 févr. 2005 à 20:34
Un zip avec un exmple serais le bien venu
sinon code bien commenté.
attend le zip pour la note.
samih5
16 févr. 2005 à 16:32
16 févr. 2005 à 16:13
++
16 févr. 2005 à 16:09
Merci encore
16 févr. 2005 à 15:51
oWrd.Application.Options.PrintBackground = False
16 févr. 2005 à 14:41
[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
16 févr. 2005 à 11:45
16 févr. 2005 à 11:15
oWrd.Documents.Open sCheminDoc
oWrd.ActivePrinter = "MonImprimante"
oWrd.Application.PrintOut FileName:=sCheminDoc, OutputFileName:=sCheminPrn
16 févr. 2005 à 10:44
16 févr. 2005 à 09:29
Et à la limite proposé ta solution, car ce que tu dis m'intéresse beaucoup.
++
16 févr. 2005 à 09:22
15 févr. 2005 à 17:35