Solved

Getting printer status (online/offline)

Posted on 1998-02-06
4
2,233 Views
Last Modified: 2010-04-04
I'd really like to know how to get the status of a printer by it's index in the printer object, in particular I'm interested in getting info about the readyness of the printer (the platform is o'coz NT4+D3).
0
Comment
Question by:dionysos_swamp
  • 2
4 Comments
 
LVL 5

Expert Comment

by:ronit051397
ID: 1358535
This is from Lloyd's Help file:
Q:  How can I tell if the printer is ON or not?

A:

Program  Printer_Status;
Uses Dos;
Function PrinterOnLine : Boolean;
  Const
    PrnStatusInt  : Byte = $17;    (*  Dos interrupt *)
    StatusRequest : Byte = $02;    (*  Interrupt Function Call *)

    PrinterNum    : Word = 0;  { 0 for LPT1, 1 for LPT2, etc. }
  Var
    Regs : Registers ;         { Type is defined in Dos Unit }

    Begin  (* PrinterOnLine*)
      Regs.AH := StatusRequest;
      Regs.DX := PrinterNum;
      Intr(PrnStatusInt, Regs);
      PrinterOnLine := (Regs.AH and $80) = $80;

    End;

Begin (* Main Program *)
  If PrinterOnLine Then
    Writeln('Ready To Print')
  Else
    Writeln('Please check the printer!');
End.

{ This code came from Lloyd's help file! }
0
 
LVL 1

Author Comment

by:dionysos_swamp
ID: 1358536
interrupts are not acceptable under NT4, I need NT 4 API code, not a dos-hack.
0
 
LVL 5

Accepted Solution

by:
inter earned 100 total points
ID: 1358537
Please use the following function: (sorry for the mess I wrote it in a hurry)

NOTE : include Printers and WinSpool units

procedure TForm1.Button6Click(Sender: TObject);
var
  pcbNeeded : DWord;
  prn : THandle;
  x : array[0..255] of char;
  stat : Pprinterinfo2;
begin
  getmem(stat, 1000);
  try
  StrPCopy(x, printer.printers[0]);
 if OpenPrinter(x, prn, nil) then
  if GetPrinter(
    prn,
    2,      // version of printer info data structure
    stat,      // pointer to array of bytes that receives printer info. structure
    1000,      // size, in bytes, of array of bytes
    @pcbNeeded       // pointer to variable with count of bytes retrieved (or required)
   ) then
   case stat.status of
   PRINTER_STATUS_BUSY   : ShowMessage('      The printer is busy.');
   PRINTER_STATUS_DOOR_OPEN     : ShowMessage('      The printer door is open.');
   PRINTER_STATUS_ERROR       : ShowMessage('The printer is in an error state.');
   PRINTER_STATUS_INITIALIZING       : ShowMessage('The printer is initializing.');
   PRINTER_STATUS_IO_ACTIVE       : ShowMessage('The printer is in an active input/output state.');
   PRINTER_STATUS_MANUAL_FEED       : ShowMessage('The printer is in a manual feed state.');
   PRINTER_STATUS_NO_TONER       : ShowMessage('The printer is out of toner.');
   PRINTER_STATUS_NOT_AVAILABLE       : ShowMessage('The printer is not available for printing.');
   PRINTER_STATUS_OFFLINE       : ShowMessage('The printer is offline.');
   PRINTER_STATUS_OUT_OF_MEMORY       : ShowMessage('The printer has run out of memory.');
   PRINTER_STATUS_OUTPUT_BIN_FULL       : ShowMessage('The printers output bin is full.');
   PRINTER_STATUS_PAGE_PUNT       : ShowMessage('The printer cannot print the current page.');
   PRINTER_STATUS_PAPER_JAM       : ShowMessage('Paper is jammed in the printer');
   PRINTER_STATUS_PAPER_OUT       : ShowMessage('The printer is out of paper.');
   PRINTER_STATUS_PAPER_PROBLEM       : ShowMessage('The printer has a paper problem.');
   PRINTER_STATUS_PAUSED       : ShowMessage('The printer is paused.');
   PRINTER_STATUS_PENDING_DELETION       : ShowMessage('The printer is deleting a print job.');
   PRINTER_STATUS_PRINTING       : ShowMessage('The printer is printing.');
   PRINTER_STATUS_PROCESSING       : ShowMessage('The printer is processing a print job.');
   PRINTER_STATUS_TONER_LOW       : ShowMessage('The printer is low on toner.');
   PRINTER_STATUS_USER_INTERVENTION       : ShowMessage('The user needs to do something to the printer.');
   PRINTER_STATUS_WAITING       : ShowMessage('The printer is waiting.');
   PRINTER_STATUS_WARMING_UP       : ShowMessage('The printer is warming up.');
   end else caption := inttostr(getlasterror);
   ClosePrinter(prn);
  finally
   if stat <> nil then freemem(stat, 1000);
  end;
end;



0
 
LVL 5

Expert Comment

by:inter
ID: 1358538
Excuse me, the ready state is indicated by stat.status = 0, so we should add the CASE statement the following:

  case ...
   .
  else ShowMessage('Ready!');
  end;

(Please try the states of the printer i.e. off, just online-warming up- paused, printing, etc)

Igor
0

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

726 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question