Obtenir la liste des imprimantes
Comment lister les imprimantes disponibles ?
Solution
Depuis Access 2002, Access fournit une collection Application.Printers
qui donne la liste des imprimantes disponibles sur votre machine, et un objet Printer
qui décrit une imprimante. Voici une boucle qui parcourt la collection Printers
et qui affiche la liste des imprimantes dans la fenêtre Exécution :
1 2 3 4 5 6 7 |
Sub ListerImprimantes() Dim prt As Access.Printer For Each prt In Application.Printers Debug.Print prt.DeviceName Next End Sub |
Au lieu d’afficher les résultats dans la fenêtre Exécution, il peut être intéressant d’ajouter les noms d’imprimantes dans une liste déroulante. Dans ce cas, remplacez le Debug.Print
par un cmbImprimantes.AddItem prt.DeviceName
(si cmbImprimantes
est le nom de votre liste déroulante). Consultez l’article Ajouter un élément statique à une liste déroulante pour plus d’infos.
Une imprimante est caractérisée par de nombreuses autres propriétés. Utilisez l’Explorateur d’objets (touche F2
) pour les obtenir.
bonjour
j’ai un formulaire donc je veux imprimer chaque enregistrement avec toute ses donnée
ex n° machine ; marque ;type de machine date d’achat etc
je voudrais sortir une fiche pour chaque machine
merci de m’aider
cordialement
Benoit Bouts
L’idée est d’imprimer toutes les fiches en même temps ?
chikyuu > Bien vu, j’ai corrigé la coquille… 🙂
il ne manquerait pas un ‘S’ à Application.Printer?