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 Access Déterminer les imprimantes installées sur le poste

Déterminer les imprimantes installées sur le poste

6 réponses
Avatar
Mrs Pomemboo
Bien le bonjour à tous,

De retour et toujours en Access 97... ben oui... :-)... sur des postes
en Win98se, WinNT et WinXP

J'aimerais trouver la façon la plus facile de recueillir les imprimantes
installées sur le poste, plus précisément, les imprimantes virtuelles
Distiller et PDFWriter.

J'ai recherché sur le net, et j'ai trouvé différentes méthodes, soit par
l'utilisation des propriétés prtDevName et prtDevMode de l'objet Report,
ou par la lecture du fichier ini situé sur le poste.

Toutefois, une ou l'autre des 2 méthodes me semblent assez complexes
étant donné que je ne veux pas manipuler les imprimantes, mais seulement
savoir si elles sont présentes.

Auriez-vous des suggestions à ce sujet ou une méthode moins complexe de
procéder ?

Merci !

--
Mrs Pomemboo (Québec, Canada)
Signaler un problème avec ce contenu

6 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
Anor
Bonjour Mrs Pomemboo

Vite fait une petite fonction qui devrait correspondre à tes attentes.

Renvoie true si imprimante pdf trouvée sur le poste et false sinon :

Function PrinterPDFExist() As Boolean
On Error Resume Next
Dim prtLoop As Printer
For Each prtLoop In Application.Printers
If prtLoop.DeviceName Like "*PDF*" Then: PrinterPDFExist = True
Next prtLoop
End Function

Voilà
--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------

Mrs Pomemboo <pomemboo(asupprimer)@lino.com> a confié :
| Bien le bonjour à tous,
|
| De retour et toujours en Access 97... ben oui... :-)... sur des postes
| en Win98se, WinNT et WinXP
|
| J'aimerais trouver la façon la plus facile de recueillir les
| imprimantes installées sur le poste, plus précisément, les
| imprimantes virtuelles Distiller et PDFWriter.
|
| J'ai recherché sur le net, et j'ai trouvé différentes méthodes, soit
| par l'utilisation des propriétés prtDevName et prtDevMode de l'objet
| Report, ou par la lecture du fichier ini situé sur le poste.
|
| Toutefois, une ou l'autre des 2 méthodes me semblent assez complexes
| étant donné que je ne veux pas manipuler les imprimantes, mais
| seulement savoir si elles sont présentes.
|
| Auriez-vous des suggestions à ce sujet ou une méthode moins complexe
| de procéder ?
|
| Merci !
Avatar
Raymond
Bonsoir Arnaud.

c'est toi qu'on va envoyer au canada pour déblayer la neige.
Mrs Pomemboo t'a répété que son système est toujours Access 97 et l'objet
printer a été mis sur 2002 seulement.
C'est vrai qu'il est tard. Tu te fais rare en ce moment.
Pour Mrs Pomemboo, en 97 à mon avis, tu n'as pas le choix hors des prtdev...

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Anor" a écrit dans le message de
news:%23f7Wt$
Bonjour Mrs Pomemboo

Vite fait une petite fonction qui devrait correspondre à tes attentes.

Renvoie true si imprimante pdf trouvée sur le poste et false sinon :

Function PrinterPDFExist() As Boolean
On Error Resume Next
Dim prtLoop As Printer
For Each prtLoop In Application.Printers
If prtLoop.DeviceName Like "*PDF*" Then: PrinterPDFExist = True
Next prtLoop
End Function

Voilà
--
à+
Arnaud


Avatar
Mrs Pomemboo
Parfait Raymond, on va y aller avec ça...

En passant pour Arnaud, j'avais déjà tenté le coup avec l'objet
Printer... mais Access 97 oblige... merci malgré tout pour la réponse...

Sur ce, on a pas encore besoin de vos services pour la neige... bien que
nous soyons en octobre, il en tombe présentement quelques flocons...
mais le déblayage... pas avant décembre !

Bonne fin de soirée à vous et merci pour votre aide !

--
Mrs Pomemboo (Québec, Canada)
Charte : ...http://users.skynet.be/mpfa/ ...

Raymond wrote:
|| Bonsoir Arnaud.
||
|| c'est toi qu'on va envoyer au canada pour déblayer la neige.
|| Mrs Pomemboo t'a répété que son système est toujours Access 97 et
|| l'objet printer a été mis sur 2002 seulement.
|| C'est vrai qu'il est tard. Tu te fais rare en ce moment.
|| Pour Mrs Pomemboo, en 97 à mon avis, tu n'as pas le choix hors des
|| prtdev...
||
|| --
|| @+
|| Raymond Access MVP.
|| http://access.seneque.free.fr/
|| http://access2003.free.fr/
|| http://users.skynet.be/mpfa/charte.htm pour une meilleure
|| efficacité de tes interventions sur MPFA.
||
||
|| "Anor" a écrit dans le message de
|| news:%23f7Wt$
||| Bonjour Mrs Pomemboo
|||
||| Vite fait une petite fonction qui devrait correspondre à tes
||| attentes.
|||
||| Renvoie true si imprimante pdf trouvée sur le poste et false sinon :
|||
||| Function PrinterPDFExist() As Boolean
||| On Error Resume Next
||| Dim prtLoop As Printer
||| For Each prtLoop In Application.Printers
||| If prtLoop.DeviceName Like "*PDF*" Then: PrinterPDFExist = True
||| Next prtLoop
||| End Function
|||
||| Voilà
||| --
||| à+
||| Arnaud
Avatar
Anor
Bonjour Raymond

Raymond a confié :

| Mrs Pomemboo t'a répété que son système est toujours Access 97 et
| l'objet printer a été mis sur 2002 seulement.

ah oui, je n'ai jamais eu besoin de cette fonctionnalité sous access97,
donc je ne savais pas qu'elle n'existait pas sous cette version ni sous 2000 d'ailleurs
que je n'ai jamais eu l'occasion de voir.

| C'est vrai qu'il est tard. Tu te fais rare en ce moment.

hé oui, la vie est ainsi faite :-(

| Pour Mrs Pomemboo, en 97 à mon avis, tu n'as pas le choix hors des
| prtdev...

Merci pour elle :-)

--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------
Avatar
Mrs Pomemboo
Oupsss.... Merci Raymond... :)

--
Mrs Pomemboo (Québec, Canada)

Raymond wrote:
|| Bonsoir Arnaud.
||
|| c'est toi qu'on va envoyer au canada pour déblayer la neige.
|| Mrs Pomemboo t'a répété que son système est toujours Access 97 et
|| l'objet printer a été mis sur 2002 seulement.
|| C'est vrai qu'il est tard. Tu te fais rare en ce moment.
|| Pour Mrs Pomemboo, en 97 à mon avis, tu n'as pas le choix hors des
|| prtdev...
||
|| --
|| @+
|| Raymond Access MVP.
|| http://access.seneque.free.fr/
|| http://access2003.free.fr/
|| http://users.skynet.be/mpfa/charte.htm pour une meilleure
|| efficacité de tes interventions sur MPFA.
||
||
|| "Anor" a écrit dans le message de
|| news:%23f7Wt$
||| Bonjour Mrs Pomemboo
|||
||| Vite fait une petite fonction qui devrait correspondre à tes
||| attentes.
|||
||| Renvoie true si imprimante pdf trouvée sur le poste et false sinon :
|||
||| Function PrinterPDFExist() As Boolean
||| On Error Resume Next
||| Dim prtLoop As Printer
||| For Each prtLoop In Application.Printers
||| If prtLoop.DeviceName Like "*PDF*" Then: PrinterPDFExist = True
||| Next prtLoop
||| End Function
|||
||| Voilà
||| --
||| à+
||| Arnaud
Avatar
Mrs Pomemboo
Re...

J'ai finalement décidé d'utiliser les modules de Ken Getz and Paul
Litwin, de la base defaultprt.mdb qui utilise le fichier win.ini.

Petite question toutefois... Si j'ouvre mon fichier en win98, je vois
bien la section [Devices], mais dans celui de mon poste Windows XP...
aucune section ne parle de mes imprimantes... mais le programme me
renvoie malgré tout les imprimantes de ce poste...

Auriez-vous une explication à cette question pour pallier à mon
ignorance sur le sujet... ?
Merci et bonne soirée !
--
Mrs Pomemboo (Québec, Canada)

Raymond wrote:
|| Bonsoir Arnaud.
||
|| c'est toi qu'on va envoyer au canada pour déblayer la neige.
|| Mrs Pomemboo t'a répété que son système est toujours Access 97 et
|| l'objet printer a été mis sur 2002 seulement.
|| C'est vrai qu'il est tard. Tu te fais rare en ce moment.
|| Pour Mrs Pomemboo, en 97 à mon avis, tu n'as pas le choix hors des
|| prtdev...
||
|| --
|| @+
|| Raymond Access MVP.
|| http://access.seneque.free.fr/
|| http://access2003.free.fr/
|| http://users.skynet.be/mpfa/charte.htm pour une meilleure
|| efficacité de tes interventions sur MPFA.
||
||
|| "Anor" a écrit dans le message de
|| news:%23f7Wt$
||| Bonjour Mrs Pomemboo
|||
||| Vite fait une petite fonction qui devrait correspondre à tes
||| attentes.
|||
||| Renvoie true si imprimante pdf trouvée sur le poste et false sinon :
|||
||| Function PrinterPDFExist() As Boolean
||| On Error Resume Next
||| Dim prtLoop As Printer
||| For Each prtLoop In Application.Printers
||| If prtLoop.DeviceName Like "*PDF*" Then: PrinterPDFExist = True
||| Next prtLoop
||| End Function
|||
||| Voilà
||| --
||| à+
||| Arnaud