Discussion :

[m_haj]

Bonjour,

Je développe en VBA sous Access.
Je souhaite effectuer une impression dans un fichier (via Postscript Writer pour ceux qui connaissent).
J'utilise la méthode "OpenReport" pour imprimer mais la fenêtre d'impression apparait et demande le nom et le chemin du fichier. j'utilise alors l'instruction "SendKeys" pour renseigner automatiquement cette fenêtre (envoie des caractères à la fenêtre active pour simuler la saisie).
Le pb c'est que j'ai beaucoup de pertes de caractères avec cette commande ce qui créé des bugs dans l'application. Connaissez vous un autre moyen de renseigner la fenetre d'impression sans passer par le Sendkey.
Merci d'avance !

[avigeilpro]

As-tu mit le paramètre qui permet d'attendre que les caractères soit tapés?
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "Salut, Comment ca va ?", True

Sinon tu fait comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
SendKeys "Salut, ", True
DoEvents
SendKeys "Comment ", True
DoEvents
SendKeys "Ca va ?", True

Les DoEvents font "perdre du temps" a ton application

[m_haj]

En fait j'ai plûtot fait comme ça :SendKeys "Salut, Comment ca va ?", False ... pour ne pas bloquer l'application en cas de pb.
Mais au final, j'ai de temps en temps des résultats du style "ut, Comment ca va ?" (le "Sal" a disparu).
Je vais tester avec un DoEvents et je te tiens au courant.
Merci pour ton aide !

[m_haj]

Désolé, ça ne marche pas

J'ai deux commande qui se suivent (le sendKeys pour l'envoi de caractères et le OpenReport pour l'impression:

SendKeys pstrFileNamePostScript & "{ENTER}", False
DoCmd.OpenReport pstrNameReport, acViewNormal, , pstrWhereInstruction

La meilleure solution serait de pouvoir rentrer le paramètre d'impression (pstrFileNamePostScript) sans passer par le SendKeys mais je sais pas comment !

Merci de votre aide.

[avigeilpro]

Meme en mettant des DoEvents un peu partout ca ne fonctionne toujours pas?
Perso, j'avais le meme genre de probleme, et pour le résoudre j'avais mis des boucle de DoEvents pour vraiment ralentir le programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim Boucle As Single
 
SendKeys "Salut, ",True
 
For Boucle=0 To 50
     DoEvents
Next Boucle
 
SendKeys "Ca va ?"
 
For Boucle=0 To 50
     DoEvents
Next Boucle
 
...
...

Je ne connais pas d'autres solution. Dsl