ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment vérifier le status de l'imprimante   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > WMI (Windows Management Instrumentation)

Comment vérifier le status de l'imprimante
# 0000000241
ajouté le 15/09/2005 21:00:29 et modifié le 29/03/2006
consulté 4951 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Description

Code source :
strComputer = "."
strComputer = "."
objWMIService = Getobject("winmgmts:""{impersonationLevel=impersonate}!\\" + strComputer + "\root\cimv2")
colInstalledPrinters = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
For Each objPrinter In colInstalledPrinters
  ?"Name: " + objPrinter.Name
  Do Case
  Case objPrinter.PrinterStatus = 1
    strPrinterStatus = "Other"
  Case objPrinter.PrinterStatus = 2
    strPrinterStatus = "Unknown"
  Case objPrinter.PrinterStatus = 3
    strPrinterStatus = "Idle"
  Case objPrinter.PrinterStatus = 4
    strPrinterStatus = "Printing"
  Case objPrinter.PrinterStatus = 5
    strPrinterStatus = "Warmup"
  Endcase
  ? "Printer Status: " + strPrinterStatus
Next

Commentaires
le 16/09/2005, FredA a écrit :
nicy nice
le 16/09/2005, Mike Gagnon a écrit :
Merci.
Le probleme a toujours été que ? PRINTSTATUS() et ? SYS(13) retourne toujours des valeurs positives, meme si il y a pas d'imprimante attaché à l'ordi.



Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3