Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic detection d'imprimante

detection d'imprimante

5 réponses
Avatar
Armando R.
Bonjour,
Comment savoir si une imprimante est installée ?
j'arrive pas à traiter cette erreur...
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Aski
Bonjour,

L'article
http://support.microsoft.com/kb/q160129/
en parle, mais je ne suis jamais arrivé ainsi à contrôler en temps réel
(problème de spooler)
Si tu y arrives, je suis preneur.

Aski

"Armando R." a écrit dans le message de
news:4205e692$0$14161$
Bonjour,
Comment savoir si une imprimante est installée ?
j'arrive pas à traiter cette erreur...




Avatar
Jean-Marc
"Armando R." a écrit dans le message de
news:4205e692$0$14161$
Bonjour,
Comment savoir si une imprimante est installée ?
j'arrive pas à traiter cette erreur...




Hello,

tu peux utiliser la collection Printers et sa propriété count.

Private Sub Command1_Click()
Dim p As Printer
Dim s As String

If Printers.Count = 0 Then
MsgBox "Aucune imprimante installée."
Else
For Each p In Printers
s = s & p.DeviceName & vbCrLf
Next
MsgBox "Les imprimantes suivantes sont installées:" & vbCrLf & s
End If
End Sub

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Avatar
Clive Lumb
"Armando R." a écrit dans le message de
news:4205e692$0$14161$
Bonjour,
Comment savoir si une imprimante est installée ?
j'arrive pas à traiter cette erreur...




Voici comment lister les imprimantes installées.

Private Sub Command1_Click()
Dim MonImprimante As Printer

For Each MonImprimante In Printers
With MonImprimante
Debug.Print .DeviceName, .DriverName, .Port
End With
Next

End Sub

Pour savoir si une imprimante est en ligne il faut faire appel aux API comme
décrit dans le lien dans la réponse d'Aski

Clive
Avatar
Armando R.
merci pour vos réponses.

"Armando R." a écrit dans le message de news:
4205e692$0$14161$
Bonjour,
Comment savoir si une imprimante est installée ?
j'arrive pas à traiter cette erreur...



Avatar
andre.araste
Bonjour

J'ai suivi ce dialogue avec intérêt mais moi je ne cherche pas à savoir si
une imprimante est installée mais si elle est allumée, en d'autres termes si
elle est on line.

J'ai entrevu une solution mais elle n'est pas fiable à 100% selon les
versions de Windows.

En effet dans un programme, l'erreur du système est toujours détectée avant
l'erreur dudit programme.

Si quelqu'un a une idée ?

Merci et ...
Bonne réception.

http://perso.wanadoo.fr/andre.araste/
Membre du Club Win's: http://www.clubwins.org
Avertissement: Je ne vends rien.




"Armando R." a écrit dans le message de news:
4205e692$0$14161$
Bonjour,
Comment savoir si une imprimante est installée ?
j'arrive pas à traiter cette erreur...