Printers.Count-1.
Dim X As Printer For Each X In Printers If X.Orientation = vbPRORPortrait Then ' Définit l'imprimante comme imprimante par ' défaut du système. Set Printer = X ' Cesse la recherche d'imprimante. Exit For End If Next
Printers(3), vous pouvez accéder aux propriétés de cette