En cours de dev mais cela devrait t'aider
Déclaration de la collection de procedure bopackPRINTER
------------------------------------------------------------------------------------------
CONSTANT
// ATTRIBUT D'UNE IMPRIMANTE...................
// Peut etre une combinaison de ces valeurs
PRINTER_ATTRIBUTE_QUEUED = 0x00000001 // If set, the printer spools and starts printing after the last page is spooled. If not set and PRINTER_ATTRIBUTE_DIRECT is not set, the printer spools and prints while spooling.
PRINTER_ATTRIBUTE_DIRECT = 0x00000002 // Job is sent directly to the printer (it is not spooled).
PRINTER_ATTRIBUTE_DEFAULT = 0x00000004 // Windows 95/98/Me: Indicates the printer is the default printer in the system.
PRINTER_ATTRIBUTE_SHARED = 0x00000008 // Printer is shared.
PRINTER_ATTRIBUTE_NETWORK = 0x00000010 // Printer is a network printer connection.
PRINTER_ATTRIBUTE_HIDDEN = 0x00000020 // Reserved.
PRINTER_ATTRIBUTE_LOCAL = 0x00000040 // Printer is a local printer.
PRINTER_ATTRIBUTE_ENABLE_DEVQ = 0x00000080 // If set, DevQueryPrint is called. DevQueryPrint may fail if the document and printer setups do not match. Setting this flag causes mismatched documents to be held in the queue.
PRINTER_ATTRIBUTE_KEEPPRINTEDJOBS = 0x00000100 // If set, jobs are kept after they are printed. If unset, jobs are deleted.
PRINTER_ATTRIBUTE_DO_COMPLETE_FIRST = 0x00000200 // If set and printer is set for print-while-spooling, any jobs that have completed spooling are scheduled to print before jobs that have not completed spooling.
PRINTER_ATTRIBUTE_WORK_OFFLINE = 0x00000400 // Windows 95/98/Me: Indicates whether the printer is currently connected. If the printer is not currently connected, print jobs will continue to spool.
PRINTER_ATTRIBUTE_ENABLE_BIDI = 0x00000800 // Windows 95/98/Me: Indicates whether bi-directional communications are enabled for the printer.
PRINTER_ATTRIBUTE_RAW_ONLY = 0x00001000 // Indicates that only raw data type print jobs can be spooled.
PRINTER_ATTRIBUTE_PUBLISHED = 0x00002000 // Windows 2000/XP: Indicates whether the printer is published in the directory service.
// Ici j'suis pas sur du tout comme il n'existait pas dans la version du winspool.h j'e l'ai extrapolé des valeurs précédentes
PRINTER_ATTRIBUTE_FAX = 0x00004000 // Windows XP: If set, printer is a fax printer. This can only be set by AddPrinter, but it can be retrieved by EnumPrinters and GetPrinter.
// STATUT D'UNE IMPRIMANTE...................
// Peut etre une combinaison de ces valeurs
PRINTER_STATUS_PAUSED = 0x00000001
PRINTER_STATUS_ERROR = 0x00000002
PRINTER_STATUS_PENDING_DELETION = 0x00000004
PRINTER_STATUS_PAPER_JAM = 0x00000008
PRINTER_STATUS_PAPER_OUT = 0x00000010
PRINTER_STATUS_MANUAL_FEED = 0x00000020
PRINTER_STATUS_PAPER_PROBLEM = 0x00000040
PRINTER_STATUS_OFFLINE = 0x00000080
PRINTER_STATUS_IO_ACTIVE = 0x00000100
PRINTER_STATUS_BUSY = 0x00000200
PRINTER_STATUS_PRINTING = 0x00000400
PRINTER_STATUS_OUTPUT_BIN_FULL = 0x00000800
PRINTER_STATUS_NOT_AVAILABLE = 0x00001000
PRINTER_STATUS_WAITING = 0x00002000
PRINTER_STATUS_PROCESSING = 0x00004000
PRINTER_STATUS_INITIALIZING = 0x00008000
PRINTER_STATUS_WARMING_UP = 0x00010000
PRINTER_STATUS_TONER_LOW = 0x00020000
PRINTER_STATUS_NO_TONER = 0x00040000
PRINTER_STATUS_PAGE_PUNT = 0x00080000
PRINTER_STATUS_USER_INTERVENTION = 0x00100000
PRINTER_STATUS_OUT_OF_MEMORY = 0x00200000
PRINTER_STATUS_DOOR_OPEN = 0x00400000
PRINTER_STATUS_SERVER_UNKNOWN = 0x00800000
PRINTER_STATUS_POWER_SAVE = 0x01000000
JOB_STATUS_PAUSED = 0x00000001 // Job is paused.
JOB_STATUS_ERROR = 0x00000002 // An error is associated with the job.
JOB_STATUS_DELETING = 0x00000004 // Job is being deleted.
JOB_STATUS_SPOOLING = 0x00000008 // Job is spooling.
JOB_STATUS_PRINTING = 0x00000010 // Job is printing.
JOB_STATUS_OFFLINE = 0x00000020 // Printer is offline.
JOB_STATUS_PAPEROUT = 0x00000040 // Printer is out of paper.
JOB_STATUS_PRINTED = 0x00000080 // Job has printed.
JOB_STATUS_DELETED = 0x00000100 // Job has been deleted.
JOB_STATUS_BLOCKED_DEVQ = 0x00000200 // The driver cannot print the job.
JOB_STATUS_USER_INTERVENTION = 0x00000400 // Printer has an error that requires the user to do something.
JOB_STATUS_RESTART = 0x00000800 // Job has been restarted.
JOB_STATUS_COMPLETE = 0x00001000 // Windows XP: Job is sent to the printer, but the job may not be printed yet. See Remarks for more information.
JOB_CONTROL_PAUSE = 1
JOB_CONTROL_RESUME = 2
JOB_CONTROL_CANCEL = 3
JOB_CONTROL_RESTART = 4
JOB_CONTROL_DELETE = 5
JOB_CONTROL_SENT_TO_PRINTER = 6
JOB_CONTROL_LAST_PAGE_EJECTED = 7
NO_PRIORITY = 0
MAX_PRIORITY = 99
MIN_PRIORITY = 1
DEF_PRIORITY = 1
PRINTER_ENUM_DEFAULT = 0x00000001
PRINTER_ENUM_LOCAL = 0x00000002
PRINTER_ENUM_CONNECTIONS = 0x00000004
PRINTER_ENUM_FAVORITE = 0x00000004
PRINTER_ENUM_NAME = 0x00000008
PRINTER_ENUM_REMOTE = 0x00000010
PRINTER_ENUM_SHARED = 0x00000020
PRINTER_ENUM_NETWORK = 0x00000040
PRINTER_ENUM_EXPAND = 0x00004000
PRINTER_ENUM_CONTAINER = 0x00008000
PRINTER_ENUM_ICONMASK = 0x00ff0000
PRINTER_ENUM_ICON1 = 0x00010000
PRINTER_ENUM_ICON2 = 0x00020000
PRINTER_ENUM_ICON3 = 0x00040000
PRINTER_ENUM_ICON4 = 0x00080000
PRINTER_ENUM_ICON5 = 0x00100000
PRINTER_ENUM_ICON6 = 0x00200000
PRINTER_ENUM_ICON7 = 0x00400000
PRINTER_ENUM_ICON8 = 0x00800000
PRINTER_ENUM_HIDE = 0x01000000
END
x_SYSTEM_TIME est une structure
wYear est un entier sans signe sur 2 octets
wMonth est un entier sans signe sur 2 octets
wDayOfWeek est un entier sans signe sur 2 octets
wDay est un entier sans signe sur 2 octets
wHour est un entier sans signe sur 2 octets
wMinute est un entier sans signe sur 2 octets
wSecond est un entier sans signe sur 2 octets
wMilliseconds est un entier sans signe sur 2 octets
END
x_JOB_INFO_1 est une structure
JobId est un entier // N° job
pPrinterName est un entier // Pointer Name of the printer for which the job is spooled
pMachineName est un entier // Pointer Name of the machine that created the print job.
pUserName est un entier // Pointer Name of the user who owns the print job.
pDocument est un entier // Pointer Name of the print job (for example, "MS-WORD: Review.doc").
pDatatype est un entier // Pointer Type of data used to record the print job.
pStatus est un entier // Pointer to a null-terminated string that specifies the status of the print job.
// This member should be checked prior to Status and, if pStatus is NULL, the status
// is defined by the contents of the Status member.
Status est un entier // Specifies the job status
Priority est un entier // Specifies the job priority. This member can be one of the following values or in the range between 1 through 99 (MIN_PRIORITY through MAX_PRIORITY).
Positi est un entier // Specifies the job's position in the print queue.
TotalPages est un entier // Specifies how many pages the document contains. This value may be zero if the print job does not contain page delimiting information.
PagesPrinted est un entier // Specifies the number of pages that have printed. This value may be zero if the print job does not contain page delimiting information.
Submitted est une x_SYSTEM_TIME // A SYSTEMTIME structure that specifies the time that this document was spooled
END
x_PRINTER_INFO_1 est une structure
Flags est un entier
pDescription est un entier
pPrinterName est un entier
pComment est un entier
END
x_PRINTER_INFO_2 est une structure
pServerName est un entier
pPrinterName est un entier
pShareName est un entier
pPortName est un entier
pDriverName est un entier
pComment est un entier
pLocation est un entier
pDevMode est un entier
pSepFile est un entier
pPrintProcessor est un entier
pDatatype est un entier
pParameters est un entier
pSecurityDescriptor est un entier
Attributes est un entier
Priority est un entier
DefaultPriority est un entier
StartTime est un entier
UntilTime est un entier
Status est un entier
cJobs est un entier
AveragePPM est un entier
END
------------------------------------------------------------------------------------------
// Renvoie une chaine séparateur TAB avec le nom des fichiers en attente d'impression dans le spool de l'imprimante
FUNCTION GetJobInPrinter(pPrinterName=iInfoImprimante())
hdPrint, nbDoc, i, pcbNeeded, Ret sont des entiers
PrinterName est une chaîne ASCIIZ sur 512 = pPrinterName
Buf est une chaîne ASCIIZ sur 2048 = ""
ListeDesFichiers est une chaîne = ""
tJOB est un tableau dynamique de 200 x_JOB_INFO_1
// Ouverture du handle avec l'imprimante
Ret = API( "winspool.drv", "OpenPrinterA" , &PrinterName, &hdPrint, Null)
IF Ret = 0 THEN RENVOYER ListeDesFichiers
// Lance une fois pour obtenir le nombre d'octet dont on a besoin
Ret = API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, 1, &tJOB, 1, &pcbNeeded, &nbDoc)
// Lance une seconde fois pour obtenir le nombre de job dans la file d'attente
Ret = API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, 1, &tJOB, pcbNeeded, &pcbNeeded, &nbDoc)
IF Ret=0 THEN
API( "winspool.drv", "ClosePrinter" , hdPrint)
RENVOYER ListeDesFichiers
END
// nbDoc contient le nombre de document
IF nbDoc=0 THEN
API( "winspool.drv", "ClosePrinter" , hdPrint)
RENVOYER ""
END
// tJOB la liste des jobs
FOR i=1 TO nbDoc
WHEN EXCEPTION IN
Transfert(&Buf,tJOB[i]:pDocument,2047)
ListeDesFichiers += Buf+TAB
DO
ListeDesFichiers = ""
SORTIR
END
END
API( "winspool.drv", "ClosePrinter" , hdPrint)
RENVOYER ListeDesFichiers
------------------------------------------------------------------------------------------
// Renvoie le nombre de job d'une file d'attente d'imprimante
FUNCTION PRINTERGetNumberOfJob(pPrinterName=iInfoImprimante())
hdPrint, nbDoc, pcbNeeded, Ret sont des entiers
PrinterName est une chaîne ASCIIZ sur 512 = pPrinterName
tJOB est un tableau dynamique de 200 x_JOB_INFO_1
nbDoc = 0
Ret = API( "winspool.drv", "OpenPrinterA" , &PrinterName, &hdPrint, Null)
IF Ret = 0 THEN RENVOYER nbDoc
API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, 1, &tJOB, 1, &pcbNeeded, &nbDoc)
API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, 1, &tJOB, pcbNeeded, &pcbNeeded, &nbDoc)
API( "winspool.drv", "ClosePrinter" , hdPrint)
Dimension(tJOB,0)
RENVOYER nbDoc
------------------------------------------------------------------------------------------
// Renvoie une chaine de caractère avec une ligne séparateur crlf pour chaque imprimante
// déclarée sur le poste dont on donne le nom
// Pour chaque imprimante, les informations sont séparées par TAB
// Les informations sont les suivantes :
// 01 = Nom du serveur sur lequel l'imprimante est installée ex : \\ServeurName
// 02 = Nom complet de l'imprimante ex: \\ServeurName\PrinterName
// 03 = Nom de partage de l'imprimante
// 04 = Port ex: LPT1: ou IP_10.0.176.128
// 05 = Nom du driver ex: Generic / Text Only ou Lexmark E332n
// 06 = Commentaires ex: Comptabilité
// 07 = Localisation ex: Informatique
// 08 = Nom du proceseur d'impression ex: WinPrint ou Lexmark PCL Print Processor
// 09 = Type d'impression ex: RAW
// 10 = Attribut de l'imprimante VOIR LA LISTE DES CONSTANTES : PRINTER_ATTRIBUTE_xxxxxxxxxx
// 11 = Nombre de job présent dans la file d'attente
// 12 = Le status de l'imprimante VOIR LA LISTE DES CONSTANTES : PRINTER_STATUS_xxxxxxxxxx
//
FUNCTION PRINTEREnumPrinter()
Level, pcbNeeded, pcReturned, Ret, i , Flag sont des entiers
tPRINTER est un tableau de 3000 x_PRINTER_INFO_2
Buf est une chaîne ASCIIZ sur 1024
ComputerName est une chaîne ASCIIZ sur 128 = "\\" + NetNomMachine()
ListeImprimante est une chaîne = ""
Flag = OUBinaire(PRINTER_ENUM_LOCAL,PRINTER_ENUM_CONNECTIONS)
Level = 2; pcbNeeded = 0; pcReturned = 0
// Appel une fois la fonction avec 0 pour connaitre le nombre d'octet nessecaire (renvoyé dans pcNeeded)
API("winspool.drv","EnumPrintersA", Flag, &ComputerName, Level, &tPRINTER, 0 , &pcbNeeded, &pcReturned)
// Appel une seconde fois avec la bonne valeur
Ret = API("winspool.drv","EnumPrintersA", Flag, &ComputerName, Level, &tPRINTER, pcbNeeded, &pcbNeeded, &pcReturned)
IF Ret=1 THEN
// C'est bon pcReturned contient le nombre d'imprimante donc le nombre de structure valide dans le tableau
FOR i=1 TO pcReturned
IF ListeImprimante <> "" THEN ListeImprimante += CRLF
Transfert(&Buf,tPRINTER[i]:pServerName,1023); ListeImprimante += Buf+TAB
Transfert(&Buf,tPRINTER[i]:pPrinterName,1023); ListeImprimante += Buf+TAB
Transfert(&Buf,tPRINTER[i]:pShareName,1023); ListeImprimante += Buf+TAB
Transfert(&Buf,tPRINTER[i]:pPortName,1023); ListeImprimante += Buf+TAB
Transfert(&Buf,tPRINTER[i]:pDriverName,1023); ListeImprimante += Buf+TAB
Transfert(&Buf,tPRINTER[i]:pComment,1023); ListeImprimante += Buf+TAB
Transfert(&Buf,tPRINTER[i]:pLocation,1023); ListeImprimante += Buf+TAB
Transfert(&Buf,tPRINTER[i]:pPrintProcessor,1023); ListeImprimante += Buf+TAB
Transfert(&Buf,tPRINTER[i]:pDatatype,1023); ListeImprimante += Buf+TAB
ListeImprimante += NumériqueVersChaine(tPRINTER[i]:Attributes)+TAB
ListeImprimante += NumériqueVersChaine(tPRINTER[i]:cJobs)+TAB
ListeImprimante += NumériqueVersChaine(tPRINTER[i]:Status)
END
END
RENVOYER ListeImprimante
------------------------------------------------------------------------------------------
FUNCTION PRINTERDeleteAllJob(pPrinter)
hdPrint, nbDoc, i, pcbNeeded, Ret, Level sont des entiers
PrinterName est une chaîne ASCIIZ sur 512 = pPrinter
Buf est une chaîne ASCIIZ sur 2048 = ""
ListeDesFichiers est une chaîne = ""
tJOB est un tableau de 300 x_JOB_INFO_1
Level = 1
// Ouverture du handle avec l'imprimante
Ret = API( "winspool.drv", "OpenPrinterA" , &PrinterName, &hdPrint, Null)
IF Ret = 0 THEN RENVOYER False
// Lance une fois pour obtenir le nombre d'octet dont on a besoin
Ret = API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, Level, &tJOB, 1, &pcbNeeded, &nbDoc)
// Lance une seconde fois pour obtenir le nombre de job dans la file d'attente
Ret = API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, Level, &tJOB, pcbNeeded, &pcbNeeded, &nbDoc)
IF Ret=0 THEN API( "winspool.drv", "ClosePrinter" , hdPrint); RENVOYER False
// nbDoc contient le nombre de document
IF nbDoc=0 THEN API( "winspool.drv", "ClosePrinter" , hdPrint); RENVOYER False
// tJOB la liste des jobs
FOR i=1 TO nbDoc
// Lance l'effacement du job
Ret = API("winspool.drv","SetJobA", hdPrint, tJOB[i]:jobid, Level, &tJOB, JOB_CONTROL_DELETE)
IF Ret = 0 THEN API( "winspool.drv", "ClosePrinter" , hdPrint); RENVOYER False
END
API( "winspool.drv", "ClosePrinter" , hdPrint)
RENVOYER True
------------------------------------------------------------------------------------------
FUNCTION PRINTERPauseAllJob(pPrinter)
hdPrint, nbDoc, i, pcbNeeded, Ret, Level sont des entiers
PrinterName est une chaîne ASCIIZ sur 512 = pPrinter
Buf est une chaîne ASCIIZ sur 2048 = ""
ListeDesFichiers est une chaîne = ""
tJOB est un tableau de 300 x_JOB_INFO_1
Level = 1
// Ouverture du handle avec l'imprimante
Ret = API( "winspool.drv", "OpenPrinterA" , &PrinterName, &hdPrint, Null)
IF Ret = 0 THEN RENVOYER False
// Lance une fois pour obtenir le nombre d'octet dont on a besoin
Ret = API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, Level, &tJOB, 1, &pcbNeeded, &nbDoc)
// Lance une seconde fois pour obtenir le nombre de job dans la file d'attente
Ret = API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, Level, &tJOB, pcbNeeded, &pcbNeeded, &nbDoc)
IF Ret=0 THEN API( "winspool.drv", "ClosePrinter" , hdPrint); RENVOYER False
// nbDoc contient le nombre de document
IF nbDoc=0 THEN API( "winspool.drv", "ClosePrinter" , hdPrint); RENVOYER False
// tJOB la liste des jobs
FOR i=1 TO nbDoc
// Lance l'effacement du job
Ret = API("winspool.drv","SetJobA", hdPrint, tJOB[i]:jobid, Level, &tJOB, JOB_CONTROL_PAUSE)
IF Ret <> 0 THEN API( "winspool.drv", "ClosePrinter" , hdPrint); RENVOYER False
END
API( "winspool.drv", "ClosePrinter" , hdPrint)
RENVOYER True
------------------------------------------------------------------------------------------
FUNCTION PRINTERResumeAllJob(pPrinter)
hdPrint, nbDoc, i, pcbNeeded, Ret, Level sont des entiers
PrinterName est une chaîne ASCIIZ sur 512 = pPrinter
Buf est une chaîne ASCIIZ sur 2048 = ""
ListeDesFichiers est une chaîne = ""
tJOB est un tableau de 300 x_JOB_INFO_1
Level = 1
// Ouverture du handle avec l'imprimante
Ret = API( "winspool.drv", "OpenPrinterA" , &PrinterName, &hdPrint, Null)
IF Ret = 0 THEN RENVOYER False
// Lance une fois pour obtenir le nombre d'octet dont on a besoin
Ret = API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, Level, &tJOB, 1, &pcbNeeded, &nbDoc)
// Lance une seconde fois pour obtenir le nombre de job dans la file d'attente
Ret = API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, Level, &tJOB, pcbNeeded, &pcbNeeded, &nbDoc)
IF Ret=0 THEN API( "winspool.drv", "ClosePrinter" , hdPrint); RENVOYER False
// nbDoc contient le nombre de document
IF nbDoc=0 THEN API( "winspool.drv", "ClosePrinter" , hdPrint); RENVOYER False
// tJOB la liste des jobs
FOR i=1 TO nbDoc
// Lance l'effacement du job
Ret = API("winspool.drv","SetJobA", hdPrint, tJOB[i]:jobid, Level, &tJOB, JOB_CONTROL_RESUME)
IF Ret <> 0 THEN API( "winspool.drv", "ClosePrinter" , hdPrint); RENVOYER False
END
API( "winspool.drv", "ClosePrinter" , hdPrint)
RENVOYER True
------------------------------------------------------------------------------------------
// pPrinterName est une chaine = \\ServeurName\PrinterName
PROCEDURE PRINTERAddPrinter(pPrinterName)
PrinterName est une chaîne ASCIIZ sur 512 = pPrinterName
RENVOYER (API("winspool.drv","AddPrinterConnectionA", &pPrinterName)=1) |