2 respuestas en este tema

[escafandra]

En esta ocasión quiero mostrar cómo cancelar los trabajos de impresión de una determinada impresora, se cancelarán los trabajos de la cola de Windows pero no los que estén ya en el buffer de la impresora.

El ejemplo en cuestión muestra código usando la API de Windows.

 

Estas son las funciones de la API de Windows usadas:

OpenPrinter para encontrar el Handle de la impresora
GetPrinter para encontrar el número de trabajos de impresión de esa impresora
EnumJobs para tener un array con todos los trabajos de impresión pendientes de la impresora
SetJob para, en este caso, calcelar un trabajo de impresión.

EnumJobs devuelve un puntero a un array estilo c, que es un puntero al primer elemento del array. En delphi tenemos que inventar un cast para lo que defino TAJOB_INFO_2 y PAJOB_INFO_2. Con ello el puntero devuelto lo convertimos directamante a un array y tranbajamos como lo haríamos en C.
    

Este código es de mucha utilidad cuando se lanzan un gran número de trabajos, de varias hojas y en un momento dado se quiere cancelar todo desde nuestra aplicación para evitar saturar una impresora o evitar el gasto innecesario de papel, sin necesidad de abrir la cola de impresión desde Windows.

 

La versión sobrecargada CancelPrintJobs() es para trabajar directamente con la impresora seleccionada por defecto en nuestra aplicación, nos ahorra encontrar y escribir su nombre.
 
 

delphi

uses
  Windows, Printers, Winspool;  //.......
 
type
 
  LPPRINTER_INFO_2 = ^PRINTER_INFO_2;
  TAJOB_INFO_2     = array [0..0] of JOB_INFO_2;
  PAJOB_INFO_2     = ^TAJOB_INFO_2;
 
//......................
 
 
function CancelPrintJobs(PrinterName: String): boolean; overload;
var
  hPrinter:     THandle;
  BytesNeeded:  DWORD;
  BytesUsed:    DWORD;
  jobCount:     DWORD;
  pPrinterInfo: LPPRINTER_INFO_2;
  pJobsInfo:    PAJOB_INFO_2;
  i: integer;
begin
  hPrinter:= 0;
  BytesNeeded:= 0;
  BytesUsed:= 0;
  Result:= false;
 
  // Abre la impresora
  if OpenPrinter(PCHAR(PrinterName), hPrinter, nil) then
  begin
    // Obtiene el número de trabajos de impresión en cola
    GetPrinter(hPrinter, 2, nil, 0, @BytesNeeded);
    GetMem(pPrinterInfo, BytesNeeded);
    if GetPrinter(hPrinter, 2, pPrinterInfo, BytesNeeded, @BytesUsed) then
    begin
      jobCount:= pPrinterInfo.cJobs;
      // Obtiene la información de los trabajos de impresión
      EnumJobs(hPrinter, 0, jobCount, 2, nil, 0, BytesNeeded, BytesUsed);
      GetMem(pJobsInfo, BytesNeeded);
      if EnumJobs(hPrinter, 0, jobCount, 2, pJobsInfo, BytesNeeded, BytesUsed, BytesUsed)then
      begin
        // Cancela cada trabajo de impresión en cola
        Result:= true;
        for i:= 0 to jobCount-1 do
          Result:= Result and SetJob(hPrinter, pJobsInfo[i].JobId, 0, nil, JOB_CONTROL_CANCEL);
      end;
    end;
  end;
  FreeMem(pPrinterInfo);
  FreeMem(pJobsInfo);
  ClosePrinter(hPrinter);
end;
 
 
 
function CancelPrintJobs(): boolean; overload;
var
  PrinterName: String;
begin
  PrinterName:= Printer.Printers.Strings[Printer.PrinterIndex];
  Result:= CancelPrintJobs(PrinterName);
end;

 



Saludos.

[escafandra]

La versión C/C++ de esta función sería esta:

 

Nótese que uso las versiones "A" de la API para forzar a no uso de UNICODE. Si se desea UNICODE hay que eliminar esas "A" de las funciones y estructuras, también se debería eliminar AnsiString para sustituirlo por String.

cpp

#include <Windows.h>
#include <Winspool.h>
 
 
 
BOOL CancelPrintJobs(char* PrinterName)
{
  HANDLE hPrinter   = 0;
  DWORD BytesNeeded = 0;
  DWORD BytesUsed   = 0;
  DWORD jobCount;
  PRINTER_INFO_2A *pPrinterInfo;
  JOB_INFO_2* pJobsInfo;
  BOOL Error = false;
 
  // Abre la impresora
  if(!OpenPrinterA(PrinterName, &hPrinter, 0))
    return false;
 
  // Obtiene el número de trabajos de impresión en cola
  GetPrinterA(hPrinter, 2, NULL, 0, &BytesNeeded);
  pPrinterInfo = (PRINTER_INFO_2A*)new BYTE[BytesNeeded];
  if(!GetPrinterA(hPrinter, 2, (LPSTR)pPrinterInfo, BytesNeeded, &BytesUsed)){
    delete [] pPrinterInfo;
    ClosePrinter(hPrinter);
    return FALSE;
  }
  jobCount = pPrinterInfo->cJobs;
 
  // Obtiene la información de los trabajos de impresión
  EnumJobs(hPrinter, 0, jobCount, 2, NULL, 0, &BytesNeeded, &BytesUsed);
  pJobsInfo = (JOB_INFO_2*)new BYTE[BytesNeeded];
  if(!EnumJobsA(hPrinter, 0, jobCount, 2, (LPBYTE)pJobsInfo, BytesNeeded, &BytesUsed, &BytesUsed)){
    ClosePrinter(hPrinter);
    delete [] pJobsInfo;
    return false;
  }
 
  // Cancela cada trabajo de impresión en cola
  for(DWORD i = 0; i < jobCount; ++i)
    Error |= !SetJobA(hPrinter, pJobsInfo[i].JobId, 0, NULL, JOB_CONTROL_CANCEL);
 
  // Limpia la memoria y cierra la impresora
  delete [] pPrinterInfo;
  delete [] pJobsInfo;
  ClosePrinter(hPrinter);
  return !Error;
}
//---------------------------------------------------------------------------
 
#include <vcl.h>
BOOL CancelPrintJobs()
{
  AnsiString PrinterName = Printer()->Printers->Strings[Printer()->PrinterIndex];
  return CancelPrintJobs(PrinterName.c_str());
}
//---------------------------------------------------------------------------

Saludos.

[egostar]

Excelente utilería. y por supuesto muy necesaria.

 

 

Saludos