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

Forum AtoutFox : Re: s=c3=a9lection d'imprimante par SYS(1037)   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

lun. 27 novembre 2017, 17h03
Jean =c3=a0 Grenoble
atoutfox.public.association

Re: s=c3=a9lection d'imprimante par SYS(1037)

Bonjour,

est-ce que ce petit bout de programme pourrait t'aider ?

clear
Local objWMI
Local colClass
Local objClass
Local strComputer

strComputer = "."
objWMI = GetObject("winmgmts:\\" + strComputer + "\root\cimv2")
colClass = objWMI.ExecQuery("Select * from Win32_Printer",,0) && 48

For Each objClass in colClass FOXOBJECT
"Caption: " +objClass.Caption
"Port Name: " + objClass.PortName
"Status: " +objClass.Status
"imprimante par défaut ?: " + IIF(objClass.Default"oui""non")+ ;
   ", locale ?: "IIF(objClass.local"oui""non")

*!*  class Win32_Printer : CIM_Printer
*!*  {
*!*    uint32   Attributes;
*!*    uint16   Availability;
*!*    string   AvailableJobSheets[];
*!*    uint32   AveragePagesPerMinute;
*!*    uint16   Capabilities[];
*!*    string   CapabilityDescriptions[];
*!*    string   Caption;
*!*    string   CharSetsSupported[];
*!*    string   Comment;
*!*    uint32   ConfigManagerErrorCode;
*!*    boolean  ConfigManagerUserConfig;
*!*    string   CreationClassName;
*!*    uint16   CurrentCapabilities[];
*!*    string   CurrentCharSet;
*!*    uint16   CurrentLanguage;
*!*    string   CurrentMimeType;
*!*    string   CurrentNaturalLanguage;
*!*    string   CurrentPaperType;
*!*    boolean  Default;
*!*    uint16   DefaultCapabilities[];
*!*    uint32   DefaultCopies;
*!*    uint16   DefaultLanguage;
*!*    string   DefaultMimeType;
*!*    uint32   DefaultNumberUp;
*!*    string   DefaultPaperType;
*!*    uint32   DefaultPriority;
*!*    string   Description;
*!*    uint16   DetectedErrorState;
*!*    string   DeviceID;
*!*    boolean  Direct;
*!*    boolean  DoCompleteFirst;
*!*    string   DriverName;
*!*    boolean  EnableBIDI;
*!*    boolean  EnableDevQueryPrint;
*!*    boolean  ErrorCleared;
*!*    string   ErrorDescription;
*!*    string   ErrorInformation[];
*!*    uint16   ExtendedDetectedErrorState;
*!*    uint16   ExtendedPrinterStatus;
*!*    boolean  Hidden;
*!*    uint32   HorizontalResolution;
*!*    datetime InstallDate;
*!*    uint32   JobCountSinceLastReset;
*!*    boolean  KeepPrintedJobs;
*!*    uint16   LanguagesSupported[];
*!*    uint32   LastErrorCode;
*!*    boolean  Local;
*!*    string   Location;
*!*    uint16   MarkingTechnology;
*!*    uint32   MaxCopies;
*!*    uint32   MaxNumberUp;
*!*    uint32   MaxSizeSupported;
*!*    string   MimeTypesSupported[];
*!*    string   Name;
*!*    string   NaturalLanguagesSupported[];
*!*    boolean  Network;
*!*    uint16   PaperSizesSupported[];
*!*    string   PaperTypesAvailable[];
*!*    string   Parameters;
*!*    string   PNPDeviceID;
*!*    string   PortName;
*!*    uint16   PowerManagementCapabilities[];
*!*    boolean  PowerManagementSupported;
*!*    string   PrinterPaperNames[];
*!*    uint32   PrinterState;
*!*    uint16   PrinterStatus;
*!*    string   PrintJobDataType;
*!*    string   PrintProcessor;
*!*    uint32   Priority;
*!*    boolean  Published;
*!*    boolean  Queued;
*!*    boolean  RawOnly;
*!*    string   SeparatorFile;
*!*    string   ServerName;
*!*    boolean  Shared;
*!*    string   ShareName;
*!*    boolean  SpoolEnabled;
*!*    datetime StartTime;
*!*    string   Status;
*!*    uint16   StatusInfo;
*!*    string   SystemCreationClassName;
*!*    string   SystemName;
*!*    datetime TimeOfLastReset;
*!*    datetime UntilTime;
*!*    uint32   VerticalResolution;
*!*    boolean  WorkOffline;
*!*  };
?
Next


Jean à Grenoble
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018633
18 614 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


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