function TfrmMain.PrinterStatus(MyPrinterName:string):integer;
var
 PrinterName:    string;
 szPrinterName:  array[0 .. 127] of char;
 pPrinter:       array[0 .. 19] of TPrinterInfo2;//PRINTER_INFO_2A; //20 is a guess
 pcReturned,
 pcbNeeded:      DWORD;
 l:              integer;
 pBuffer:        pointer;

begin
 l:= 0;
 //MyPrinterName:='hp laserjet iiid';
 EnumPrinters(PRINTER_ENUM_NAME, // types of printer objects to enumerate
              nil, //PChar(MyPrinterName),                // name of printer object
              2,                // specifies type of printer info structure
              nil,         // pointer to buffer to receive printer info structures
              0,                // we use 0 so that Windows tells us how big a buffer it wants
              pcbNeeded,          // pointer to variable with no. of bytes copied (or required)
              pcReturned          // pointer to variable with no. of printer info. structures copied
  );
 GetMem(pBuffer,pcbNeeded);       //create a buffer of the required size
 fillchar(pBuffer^,pcbNeeded,0);
 EnumPrinters(PRINTER_ENUM_NAME, //now we read the printer list
              nil,
              2,
              pBuffer,
              pcbNeeded,          // this is the real size, in bytes, of buffer
              pcbNeeded,
              pcReturned
  );

//now we copy that part of the buffer that we are interested in to our array
system.move(pBuffer^,pPrinter,pcReturned*sizeof(TPrinterInfo2));

// Find my printer
 for l:= 0 to pcReturned - 1 do
 begin
   if l > 3 then
     ShowMessage('Value l: ' + IntToStr(l));
   PrinterName:=  string(pPrinter[l].pPrinterName);
   if UpperCase(PrinterName) = UpperCase(MyPrinterName) then
   begin
     Result:= pPrinter[l].Status;    
    break;
   end;
 end;
 FreeMem(pBuffer,pcbNeeded);
end;

{either 0 or one of the following

     PRINTER_STATUS_BUSY
     PRINTER_STATUS_DOOR_OPEN
     PRINTER_STATUS_ERROR
     PRINTER_STATUS_INITIALIZING
     PRINTER_STATUS_IO_ACTIVE
     PRINTER_STATUS_MANUAL_FEED
     PRINTER_STATUS_NO_TONER
     PRINTER_STATUS_NOT_AVAILABLE
     PRINTER_STATUS_OFFLINE
     PRINTER_STATUS_OUT_OF_MEMORY
     PRINTER_STATUS_OUTPUT_BIN_FULL
     PRINTER_STATUS_PAGE_PUNT
     PRINTER_STATUS_PAPER_JAM
     PRINTER_STATUS_PAPER_OUT
     PRINTER_STATUS_PAPER_PROBLEM
     PRINTER_STATUS_PAUSED
     PRINTER_STATUS_PENDING_DELETION
     PRINTER_STATUS_PRINTING
     PRINTER_STATUS_PROCESSING
     PRINTER_STATUS_TONER_LOW
     PRINTER_STATUS_USER_INTERVENTION
     PRINTER_STATUS_WAITING
     PRINTER_STATUS_WARMING_UP
    }