PC Toledo

olá pessoal,
Essa rotina, encontrei aqui no fórum, ela tem o propósito de verificar qual o status atual da impressora, mas estou com dúvida com
esses comandos:

Function PrintOnLine(vcPrintOn) --> qual parâmetro devo informar, do que se trata vcPrintOn ?
local nStatus := PrintStat(vcPrintOn) --> Função PrintStat, devo acrescentar alguma lib ou tenho que criar essa função manualmente ?
local nStatus := PrnStatus(vcPrintOn) --> Função PrnStatus, devo acrescentar alguma lib ou tenho que criar essa função manualmente ?

Harbour 3.2.0 (dev)

Código: Selecionar todos

********************************************************************************	   	    	   	 
Function PrintOnLine(vcPrintOn)
****************************************
   	* Funcao para verificar o
   	* status da impressora
   	* selecionada, local ou em rede
   	*****************************************
         local nStatus := PrintStat(vcPrintOn)
         local nStatus := PrnStatus(vcPrintOn)
         if nStatus > 0
            Alert("Condicao da impressora: " + IsImpressora(vcPrintOn))
         endif
         return .t.
	   
********************************************************************************	   	    	
function IsImpressora( QuePrinter )
   	*****************************************
   	* Funcao para retornar a mesnagem de
   	* status da impressora
   	*****************************************
   	   LOCAL nStatus
   	   nStatus := PrintStat( QuePrinter )
   	   if     nStatus <        1 ; return "OK"
   	   elseif nStatus =        1 ; return "Impressora Pausada"
   	   elseif nStatus =        2 ; return "Impressora com Erro"
   	   elseif nStatus =        4 ; return "Impressora Deletando"
   	   elseif nStatus =        8 ; return "Impressora em Modo Bandeja"
   	   elseif nStatus =       16 ; return "Impressora Sem Papel"
   	   elseif nStatus =       32 ; return "Impressora em Modo Manual"
   	   elseif nStatus =       64 ; return "Impressora com Problema no Papel"
   	   elseif nStatus =      128 ; return "Impressora OffLine"
   	   elseif nStatus =      256 ; return "Impressora com IO Ativo"
   	   elseif nStatus =      512 ; return "Impressora Ocupada"
   	   elseif nStatus =     1024 ; return "Impressora Imprimindo"
   	   elseif nStatus =     2048 ; return "Impressora Memoria Lotada"
   	   elseif nStatus =     4096 ; return "Impressora Nao Instalada"
   	   elseif nStatus =     8192 ; return "Impressora Aguardando"
   	   elseif nStatus =    16384 ; return "Impressora Processando"
   	   elseif nStatus =    32768 ; return "Impressora Inicializando"
   	   elseif nStatus =    65536 ; return "Impressora em Atencao"
   	   elseif nStatus =   131072 ; return "Impressora Toner Baixo"
   	   elseif nStatus =   262144 ; return "Impressora Sem Toner"
   	   elseif nStatus =   524288 ; return "Impressora PAGE_PUNT"
   	   elseif nStatus =  1048576 ; return "Impressora Intervencao do Usuario"
   	   elseif nStatus =  2097152 ; return "Impressora Sem Memoria"
   	   elseif nStatus =  4194304 ; return "Impressora Tampa Aberta"
   	   elseif nStatus =  8388608 ; return "Impressora Servidor Desconhecido"
   	   elseif nStatus = 16777217 ; return "Impressora POWER_SAVE"
   	   endif
   	   return(nil)

Amigo, a vcPrintOn deve ser o nome da impressora.
A função PrintStat() é da lib hbct do xHarbour, no Harbour 3.2 tem ela na lib xhb, mas é apenas para compatibilidade e não importa o status da impressora, sempre vai retornar 0.
Já a função PrnStatus() é da FiveWin.

Abraços,

Enviado: **01 Nov 2017 13:56**

A função PrintStat() é da lib hbct do xHarbour, no Harbour 3.2 tem ela na lib xhb, mas é apenas para compatibilidade e não importa o status da impressora, sempre vai retornar 0.
Já a função PrnStatus() é da FiveWin.

olá Toledo,
Entrei no site abaixo, e fiz o download do FiveWin 1.0, no arquivo.HBP, acrescentei
-iC:\fivewin\trunk\fivewin1.0\include o #include "fivewin.ch" coloquei no inicio do PRG,
e ele está sendo encontrado, mas está dando erro na compilação :

undefined reference to HB_FUN_TSAY
collect2.exe: error: ld returned 1 exit status
hbmk2[ESTOQUE]: Erro: Executando linkeditor. 1

HARBOUR 3.2.0(dev)

https://code.google.com/archive/p/fivew ... ult/source

Enviado: **01 Nov 2017 14:18**

O problema que estou encontrando, é que as vezes a fila de impressão fica congestionada, então não consigo
imprimir pela rede, com essa função gostaria de dar uma mensagem para o usuário avisando o problema.

Enviado: **01 Nov 2017 14:21**

Olá Porter, está em: SAY.PRG ou você não linkou as libs do Five.

Se esse fivewin estiver completo, as classes estão em: C:\FWH..\SOURCE\CLASSES

Você pode baixar a minha primeira versão FWH2.7 em 32 bits, autorizado pelo Antonio Liñares, aqui:

https://www.4shared.com/rar/v5Q3qkH-ba/FWH27.html

Ai, você verá como é completo.

Abs.

Enviado: **01 Nov 2017 14:44**

Porter, o SPOOL da impressora está ligado? Nem em Fivewin, você consegue mandar mensagem de impressora.

A não ser, perguntar se a impressora está "Pronta?" . No Windows, o comando ISPRINTER(), não funciona.

Abs

Enviado: **01 Nov 2017 15:23**

Olá Porter, está em: SAY.PRG ou você não linkou as libs do Five.
Se esse fivewin estiver completo, as classes estão em: C:\FWH..\SOURCE\CLASSES
Você pode baixar a minha primeira versão FWH2.7 em 32 bits, autorizado pelo Antonio Liñares, aqui:
https://www.4shared.com/rar/v5Q3qkH-ba/FWH27.html

Ai, você verá como é completo.

Porter, o SPOOL da impressora está ligado? Nem em Fivewin, você consegue mandar mensagem de impressora.

A não ser, perguntar se a impressora está "Pronta?" . No Windows, o comando ISPRINTER(), não funciona.

Olá Kapiaba, apenas acrescentei -iC:\fivewin\trunk\fivewin1.0\include no HBP, e #include "fivewin.ch" no PRG
e tentei compilar, estou tentando fazer com o prnstatus do FiveWin conforme rotina no começo do tópico, mas
se nem com o FiveWin consigo verificar o SPOOL da impressora, não vai adiantar eu prosseguir com essa rotina.
O SPOOL da impressora está ligado, sempre acontece da fila de impressão ficar congestionada e não conseguir
imprimir pela rede, então tenho que sempre esvaziar o SPOOLER, não sei se esse problema acontece por se tratar de um XP na estação.
Vou baixar a versão que você sugeriu e tentar compilar pelo menos para aprender a usar outras funções do FiveWin.

Obrigado.

Enviado: **01 Nov 2017 16:50**

Porter, em Fivewin essa funcao simples, poderia ajudar. Mesmo assim, tenho dúvidas, se o windows aceita de boa.

Código: Selecionar todos

FUNCTION isPrinterReady( oPrn )

RETURN !Empty( oPrn:hDC )

Veja se consegue algo semelhante para a linguagem que voce usa.

abs.

PC Toledo

Dúvida com rotina para verificar status da impressora

Dúvida com rotina para verificar status da impressora

Dúvida com rotina para verificar status da impressora

Dúvida com rotina para verificar status da impressora

Dúvida com rotina para verificar status da impressora

Dúvida com rotina para verificar status da impressora

Dúvida com rotina para verificar status da impressora

Dúvida com rotina para verificar status da impressora

Dúvida com rotina para verificar status da impressora