choix d'une imprimante a partir d'une macro

[kolivier]

Re bonjour le forum, j'ai une petite question .


Je souhaite que ma macro puisse imprimer des feuil mais je souhaiterai donner le choix de l'imprimante, avez vous une idée, s'il vous plait ?

GENRE UN PEU COMME CA :

varAnswer = MsgBox('Voulez vous imprimez les documents avec la HP', vbYesNo, 'IMPRESSION HP')
           If varAnswer = vbYes Then
   rem (je ne sais pas comment préciser que c'est la HP qu'il faut choisir)
            IMPDEMANDE.PrintOut
end if
varAnswer = MsgBox('Voulez vous convertir en PDF', vbYesNo, 'IMPRESSION PDF')
           If varAnswer = vbYes Then
   rem (je ne sais pas comment préciser que c'est acrobat qu'il faut choisir)
            IMPDEMANDE.PrintOut
end if

Merci de votre grande patience a me lire

 

[Hervé]

bonjour olivier

un essai :

varAnswer = MsgBox('Voulez vous imprimez les documents avec la HP', vbYesNo, 'IMPRESSION HP')
        If varAnswer = vbYes Then
                ActivePrinter = 'hp LaserJet 1010 Series Driver sur Ne02:'
                IMPDEMANDE.PrintOut
        Else
                varAnswer = MsgBox('Voulez vous convertir en PDF', vbYesNo, 'IMPRESSION PDF')
                    If varAnswer = vbYes Then
                                ActivePrinter = 'PDFCreator sur Ne00:'
                                IMPDEMANDE.PrintOut
                        End If
        End If

a toi d'adapter les noms d'imprimantes à ton environnement.

salut

 

[kolivier]

Merci à tous mais j'ai trouvé, une fois n'est pas coutume, la réponse a été donnée ici une multitude de fois. j'aurai du regarder les autres questions deja posées.

désolés pour tous ceux qui se sont sentis offencés.
Milles excuses.
et bonne fin de journée

 

[kolivier]

Merci milles fois Hervé, c'est trés sympa une fois de plus de venir a mon aide, mais j'avais trouvé la solutions, le plus simple c'est de voir les inombrables réponses deja donnée, cela eviterait que comme toi des personnes perdent le temps si précieux a nos yeux.

Merci beaucoup en tout cas de ta réponse et trés bonen journée