> 02 - Changer facilement d'imprimante (à partir d'Access 10 -XP)
1 - On dispose d'un formulaire à partir duquel on choisit l'état à imprimer. (voir)
2 - Dans la procédure sous-jacente de l'évènement "sur ouverture" de ce formulaire ajouter le code suivant:
'------------------------------------- liste des imprimantes
Dim prt As Printer
For Each prt In Application.Printers
Me.lstImprimantes.AddItem prt.DeviceName
Next

3 - Ajouter une liste déroulante nommée "lstImprimantes". Sa propriété "Origine source" sera "Liste de valeurs"
4 - Ajouter dans la procédure du bouton qui imprime:
'--------------------- change l'imprimante
If Me.lstImprimantes.ListIndex <> -1 Then
Set Reports(stDocName).Printer = Application.Printers(Me.lstImprimantes.ListIndex)
End If

(plus d'infos ici)