Hello Silvio, does PrnStatus work for you. Best regards, Otto #define PRINTER_STATUS_PENDING_DELETION 4 #define PRINTER_STATUS_PAPER_JAM 8 #define PRINTER_STATUS_PAPER_OUT 16 #define PRINTER_STATUS_MANUAL_FEED 32 #define PRINTER_STATUS_PAPER_PROBLEM ...
... your code .. I did see something similar in the \Samples.. Here is my code,.. I query for the port and the name .. I run both parameters through PrnStatus() .. and the USB printer cable has been removed: #include "Fivewin.ch"#define PRINTER_STATUS_OK ...
Dear Rick, FWH Function is PrnStatus( cPrinterName ), it works for me. PrnStatus() Retrieves the status of a printer. Syntax: PrnStatus( <cPrinter> ) --> nStatus Parameters: <cPrinter> The printer of which ...
FWH-function : PrnStatus( <cPrinter> ) --> nStatus Parameters: <cPrinter> The printer of which the status is to be retrieved. Returns: <nStatus> One of the following values: #define PRINTER_STATUS_OK 0 #define ...
Hi all, the correct parameter for PrnStatus () is the printer name, not the port ! If specify a real printer name, the function returns 0 (PRINTER_STATUS_OK). But it does not return the real status of the printer. Windows can not get the correct ...
Hello Stefan, The sample prnstat.prg shows : Function Main() local nStatus := PrnStatus( "LPT1:" ) MsgInfo( nStatus ) return nil I had a look at printdc.c ( subdirectory /winapi ) PRNSTATUS( PARAMS ) // cPrinter or cPrinterServer --> nStatus I have ...
Hello Otto, I think it is possible, to add PrnStatus() inside the For Next. #define PRINTER_STATUS_OK 0#define PRINTER_STATUS_PAUSED 1#define PRINTER_STATUS_ERROR 2#define PRINTER_STATUS_PENDING_DELETION ...
Esto lo he sacado de un ost de este foro: function IsPrint( QuePrinter ) LOCAL nStatus DEFAULT QuePrinter := "LPT1:" nStatus := PrnStatus( QuePrinter ) if nStatus < 1 ; return "Impressora OK" elseif nStatus = 1 ; return "Impressora Pausada" elseif nStatus = 2 ; return "Impressora com ...
Esto lo he sacado de un ost de este foro: function IsPrint( QuePrinter ) LOCAL nStatus DEFAULT QuePrinter := "LPT1:" nStatus := PrnStatus( QuePrinter ) if nStatus < 1 ; return "Impressora OK" elseif nStatus = 1 ; return "Impressora Pausada" elseif nStatus = 2 ; return "Impressora com ...