Sélection automatique d'une imprimante

Question

Bonjour
Je souhaiterais pouvoir imprimer des documents (word ou excell) sur une imprimante dédiée en fonction de l'utilisateur windows et du document (sans avoir à sélectionner à chaque fois un imprimante).
Ces imprimantes sont en réseau et les documents word et excell sont généré depuis des .dot et .xlt
 :big) 
et A bientot

trcdl · Answer

salut ggrange 
un petit code qui te permet de selectionner les imprimantes dispo . Il suffit de le faire automatiquement en fonction de l'utilisateur=>vers son imprimante dediée .

1 form
1 listbox
1 commandbutton nommé : cde_imp

le code : 

Option Explicit
'declaration pour la feuille
'SANS s
Dim imprimante As Printer

Private Sub Form_Activate()
'des activation de la feuille , je rempli la liste
'pour chaques imprimantes disponibles , affiche les dans la liste
For Each imprimante In Printers    'AVEC un s
    List1.AddItem imprimante.DeviceName
Next
End Sub

Private Sub List1_Click()
    Dim ind
    ' ind = le numero cliquez dans la liste
    cde_imp.Caption = "Imprimer avec : " & List1.List(ind)
    ' definis cette imprimante par default
    Set Printer = Printers(List1.ListIndex)
End Sub

a bientot  8-)

cs_EBArtSoft · Answer

Ou tu fait simplement dans une macro :

'[Excel]
ThisWorkbook.PrintOut , , , , ""

'[Word]
ThisDocument.PrintOut , , , , ""

@+

E.B.

Sélection automatique d'une imprimante

2 réponses

Discussions similaires