iInitRequêteEtat(MonEtat,IDDoc)
iImprimeEtat(MonEta)

SI HLitRecherchePremier(DOCUMENTS,IDDoc,Col_IdDoc) =Vrai ALORS
DOCUMENTS.EstImprime=1
SI PAS HModifie(DOCUMENTS) ALORS
Info(HErreurInfo(hErrComplet))
FIN
FIN

RENVOYER IDDoc // je revoie la valeur de l'ID

iInitRequêteEtat(MonEtat,IDDoc)
nRésultat=iImprimeEtat(MonEta)

SI nRésultat>0 ALORS
FDocs.EstImprime=Vrai
SI PAS FDocs.Modifie() ALORS
Info(" Pas de modification "+HErreurInfo(hErrComplet))
FIN
FIN

CONSTANTE
JOB_STATUS_READY = 0x00000000
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.
FIN

_SYSTEM_TIME est une structure
wYear est un entier sans signe sur 2 octets
wMonth est un entier sans signe sur 2 octets // 1 = January
wDayOfWeek est un entier sans signe sur 2 octets // 0 = Sunday
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
FIN

_JOB_INFO_1 est une structure
JobId est un entier // Job id
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 système // Pointer Name of the print job
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
Status est un entier // Specifies the job status
Priority est un entier // Specifies the job 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
PagesPrinted est un entier // Specifies the number of pages that have printed
Submitted est une _SYSTEM_TIME // A SYSTEMTIME structure that specifies the time that this document was spooled
FIN

Procedure Report_Printed(Report_File est une chaîne)

// init vars
API_Result est un entier système

hdPrint, pcReturned, pcbNeeded sont des entiers
prName est une chaîne ASCIIZ sur 512 = iInfoImprimante

i est un entier

Job est un _JOB_INFO_1
Jobs est un tableau dynamiquedynamique de 0 _JOB_INFO_1

// open printer handle
API_Result = API("winspool.drv", "OpenPrinterA" , &prName, &hdPrint, Null)
IF API_Result = 0 THEN
RENVOYER Faux
END

// check "EnumJobsA" a first time to get bytes total we need
API_Result = API("winspool.drv", "EnumJobsA", hdPrint, 0, 1000, 1, Null, 0, &pcbNeeded, &pcReturned)

// resize array
Dimension(Jobs, PartieEntière(pcbNeeded / Dimension(Job)) + 1)

// check a second time to get total jobs
API_Result = API("winspool.drv", "EnumJobsA", hdPrint, 0, 1000, 1, &Jobs, pcbNeeded, &pcbNeeded, &pcReturned)
SI API_Result = 0 ALORS
API("winspool.drv", "ClosePrinter", hdPrint)
RENVOYER Faux
FIN

// just do it!
SELON pcReturned
CAS 0
API("winspool.drv", "ClosePrinter", hdPrint)

AUTRE CAS
POUR i = 1 _À_ pcReturned
QUAND EXCEPTIONEXCEPTION DANS
// we consider this job has been printed if its status does not correpsond to these values
SI PAS Jobs[i]:Status DANS (JOB_STATUS_READY, JOB_STATUS_PAUSED, JOB_STATUS_ERROR, JOB_STATUS_DELETING, JOB_STATUS_SPOOLING, JOB_STATUS_PRINTING, JOB_STATUS_OFFLINE, JOB_STATUS_PAPEROUT, JOB_STATUS_DELETED, JOB_STATUS_BLOCKED_DEVQ, JOB_STATUS_USER_INTERVENTION) ALORS
SI ChaîneRécupère(Jobs[i]:pDocument, crAdresseASCIIZ) = Report_File ALORS
API("winspool.drv", "ClosePrinter" , hdPrint)

RENVOYER Vrai
FIN
FIN
FAIRE
SORTIR
FIN
FIN
FIN

RENVOYER Faux

iImprimeEtat(MonEtat, ...)

// check if document is, or has been, printed
SI Report_Printed("MonEtat") = Vrai ALORS
...
SINON
...
FIN

iInitRequêteEtat(MonEtat, IDDoc)
iImprimeEtat(MonEtat)

SI Report_Printed("MonEtat") = Vrai ALORS
SqlUpdate est une Source dede Données
SqlUpdate.IDDoc = Col_IdDoc

SI HExécuteRequêteSQL(sdReq, "UPDATE DOCUMENTS SET EstImprime = 1 WHERE IDDoc = {IDDoc}") = Faux ALORS
TitreSuivant("Erreur")
Erreur(HErreurInfo(hErrComplet))
FIN
FIN