Discussion :

[Herman]

Bonjour,

J'ai pris la code trouvé dans la FAQ pour imprimer vers différentes imprimantes, mais apparament, au moment de changer l'imprimante par défaut, il ne me la change pas :

Code :

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

1
2
3
4
5
6
7
        While Not rs.EOF
            ' Chargement des paramètres de l'imprimante sélectionnée
            dr.drDeviceName = rs.Fields("[tx_PrtNom]")
            dr.drDriverName = rs.Fields("[tx_PrtDriver]")
            dr.drPort = rs.Fields("[tx_PrtPort]")
            ' L'imprimante devient imprimante par défaut
            ahtSetDefaultPrinter dr

Si je fait un MsgBox de rs.Fields("[tx_PrtNom]"), il me renvois bien le nom de la nouvelle imprimante que j'aimerais par défaut.

Pourtant, aucun erreur ne surgit au moment de l'éxécution, c'est juste qu'il m'envoie toujours et uniquement sur l'imprimante par défaut du début.

Si quelqu'un a une piste !

Merci d'avance !

PS : J'utilise ce code : http://access.developpez.com/faq/?page=TAEtat#ChoixImpr

Et J'ai tout mis dans le même module, je sais pas si c'est la bonne manière de faire :o

[Lou Pitchoun]

Salut,

Question bête là comme ça...

Tu as essayé :

Code :

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

ahtSetDefaultPrinter dr.drDeviceName

[Herman]

Erreur de compilation, Type d'argument ByRef Incompatible.

Ce qui est plus ou moins normal puisque :

Code :

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

Function ahtSetDefaultPrinter(dr As aht_tagDeviceRec) As Boolean

Code :

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

1
2
3
4
5
Type aht_tagDeviceRec
   drDeviceName As String
   drDriverName As String
   drPort As String
End Type

[Lou Pitchoun]

Je viens de tester le code : tout fonctionne bien.
Tu as changé quelque chose ??

[Herman]

Non, j'ai tout C/C tel quel dans le même module.

Je m'en suis sorti en prenant des anciens bouts de code qui me permettait de changer l'imprimante par défaut si on avait son nom. C'est un peu à l'arrache mais ça fonctionne ^^

[Lou Pitchoun]

Non, j'ai tout C/C tel quel dans le même module.

Je m'en suis sorti en prenant des anciens bouts de code qui me permettait de changer l'imprimante par défaut si on avait son nom. C'est un peu à l'arrache mais ça fonctionne ^^

Le code de la FAQ fait déjà.
Pas besoin de le refaire.

[Herman]

Le code de la FAQ fait déjà.
Pas besoin de le refaire.

Oui mais justement, si je suis en train d'écrire ici, c'est que j'ai un problème avec le code de la FAQ et qu'il ne marche pas chez moi ... Sinon je n'aurais pas posté de message .

Donc il faut bien que je m'en sorte autrement étant donné que je n'ai eu aucune réponse qui me permette de le faire fonctionner .

[Lou Pitchoun]

Tu as combien d'imprimantes recensées dans la table tbPrtList ?

[Herman]

4 : pdfCreator, Kyocera (la vrai imprimante), Microsoft XPS Document Writer et Microsoft Office Document Image Writer

[sassene]

Excusez moi

Les programmes de cette FAQ doivent tous être dans un seul module ou pas parceque là je comprends pas bien comment la table puisse se remplir d'elle même