Imprimante par défaut dans liste déroulante

Le
Thierry
Bonjour,

A l'ouverture d'un formulaire, j'ai la procédure suivante qui me permet
d'avoir la liste des imprimante
dans une liste déroulante :

Private Sub Form_Open(Cancel As Integer)

Dim prt As Printer
For Each prt In Application.Printers
Me.lstImprimantes.AddItem prt.DeviceName
Next
End Sub

Elle fonctionne parfaitement et je souhaiterais que l'imprimante par défaut
du système
soit sélectionnée par défaut également dans la liste déroulante.

Est-ce possible ?

Merci et bonne journée.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #19482731
Salut,

Thierry wrote:
Bonjour,

A l'ouverture d'un formulaire, j'ai la procédure suivante qui me
permet d'avoir la liste des imprimante
dans une liste déroulante :

Private Sub Form_Open(Cancel As Integer)

Dim prt As Printer
For Each prt In Application.Printers
Me.lstImprimantes.AddItem prt.DeviceName
Next
End Sub

Elle fonctionne parfaitement et je souhaiterais que l'imprimante par
défaut du système
soit sélectionnée par défaut également dans la liste déroulante.

Est-ce possible ?




Regarde ceci :
http://office.microsoft.com/en-us/access/HA010345531033.aspx

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Publicité
Poster une réponse
Anonyme