Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel erreur imprimante

erreur imprimante

7 réponses
Avatar
gerard v
Bonsoir
je n'arrive pas a tester si une imprimante est installée ou pas.
le plus simplement possible

si imprimante inexistante alors exit sub
sinon ouvre l'apercu

l'apercu s'ouvre sauf si l'imprimante n'est pas installée il y a erreur et
plantage

merci encore
Signaler un problème avec ce contenu

7 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
sabatier
et si tu mets avant le ActivePrinter un On Error Resume Next?
jps

gerard v wrote:

Bonsoir
je n'arrive pas a tester si une imprimante est installée ou pas.
le plus simplement possible

si imprimante inexistante alors exit sub
sinon ouvre l'apercu

l'apercu s'ouvre sauf si l'imprimante n'est pas installée il y a erreur et
plantage

merci encore


Avatar
gerard v
nsalut
on ca va pas tu n'a pas un petit bout de code
merci
"sabatier" a écrit dans le message de
news:
et si tu mets avant le ActivePrinter un On Error Resume Next?
jps

gerard v wrote:

Bonsoir
je n'arrive pas a tester si une imprimante est installée ou pas.
le plus simplement possible

si imprimante inexistante alors exit sub
sinon ouvre l'apercu

l'apercu s'ouvre sauf si l'imprimante n'est pas installée il y a erreur
et


plantage

merci encore





Avatar
FxM
Bonsoir,

J'ai un doute : ouvrir l'aperçu sur une imprimante qui n'existe pas ?
Qu'est-ce que ça peut donner ?

A tester :
sub test()
on error resume next
actp = activeprinter.name
if actp<> "" then exit sub
ActiveWorkbook.PrintPreview
end sub

@+
FxM




gerard v wrote:

Bonsoir
je n'arrive pas a tester si une imprimante est installée ou pas.
le plus simplement possible

si imprimante inexistante alors exit sub
sinon ouvre l'apercu

l'apercu s'ouvre sauf si l'imprimante n'est pas installée il y a erreur et
plantage

merci encore




Avatar
Denis Michon
Bonjour Gérard,

Essaie ceci :

'-----------------------------
Sub SavoirSiImprimanteEstInstallé()

Dim A As Boolean, B As String

'Nom de l'imprimante à vérifier
B = "hp deskjet 930c series"
A = Application.ActivePrinter = B & " sur LPT1:"

If A = True Then
MsgBox B & " est installé"
Else
MsgBox B & " n'est pas installé"
End If

End Sub
'-----------------------------


Salutations!



"gerard v" a écrit dans le message de news:bqtgu7$m8e$
Bonsoir
je n'arrive pas a tester si une imprimante est installée ou pas.
le plus simplement possible

si imprimante inexistante alors exit sub
sinon ouvre l'apercu

l'apercu s'ouvre sauf si l'imprimante n'est pas installée il y a erreur et
plantage

merci encore
Avatar
gerard v
salut
enfin de compte activePrinter verifie seulement si un pilote d'imprimante a
dejà ete installé
il ne verifie pas si une imprimante est connectée ou pas
ge

"FxM" a écrit dans le message de
news:%
Bonsoir,

J'ai un doute : ouvrir l'aperçu sur une imprimante qui n'existe pas ?
Qu'est-ce que ça peut donner ?

A tester :
sub test()
on error resume next
actp = activeprinter.name
if actp<> "" then exit sub
ActiveWorkbook.PrintPreview
end sub

@+
FxM




gerard v wrote:

Bonsoir
je n'arrive pas a tester si une imprimante est installée ou pas.
le plus simplement possible

si imprimante inexistante alors exit sub
sinon ouvre l'apercu

l'apercu s'ouvre sauf si l'imprimante n'est pas installée il y a erreur
et


plantage

merci encore







Avatar
gerard v
salut
enfin de compte activePrinter verifie seulement si un pilote d'imprimante a
dejà ete installé
il ne verifie pas si une imprimante est connectée ou pas
ge

"gerard v" a écrit dans le message de
news:bqtgu7$m8e$
Bonsoir
je n'arrive pas a tester si une imprimante est installée ou pas.
le plus simplement possible

si imprimante inexistante alors exit sub
sinon ouvre l'apercu

l'apercu s'ouvre sauf si l'imprimante n'est pas installée il y a erreur et
plantage

merci encore




Avatar
FxM
Bonjour,

gerard v wrote:

salut
enfin de compte activePrinter verifie seulement si un pilote d'imprimante a
dejà ete installé
il ne verifie pas si une imprimante est connectée ou pas


Comme ta question origiale disait "installée", c'est la réponse que
j'apportais. S'il faut vérifier qu'elle est en ligne, il faut
probablement passer par des API de Windows et ca dépasse très
largement mon niveau. S'il y a des amateurs ou amateuses ;o)

A défaut, vois du coté de chez LL http://longre.free.fr
ou allapi.com http://www.allapi.com
Ce sont des mines de code.

@+
FxM


ge

"FxM" a écrit dans le message de
news:%

Bonsoir,

J'ai un doute : ouvrir l'aperçu sur une imprimante qui n'existe pas ?
Qu'est-ce que ça peut donner ?

A tester :
sub test()
on error resume next
actp = activeprinter.name
if actp<> "" then exit sub
ActiveWorkbook.PrintPreview
end sub

@+
FxM




gerard v wrote:


Bonsoir
je n'arrive pas a tester si une imprimante est installée ou pas.
le plus simplement possible

si imprimante inexistante alors exit sub
sinon ouvre l'apercu

l'apercu s'ouvre sauf si l'imprimante n'est pas installée il y a erreur



et

plantage

merci encore