Impressora não imprime

[Josmar dos Santos]

Ola pessoal, interessante esse caso: Na minha residência, estou usando a impressora "HP Photosmart C4400 séries USB" e o mesmo imprime normalmente. No cliente, ele usa a impressora "HP Laser Jet P1005 USB" e não imprimi ! Estou usando a biblioteca wapi do maligno. O interessante de tudo isso é que vc abre a relação de documentos para imprimir no windows e la está ele para imprimir. Depois de alguns segundos ele desaparece da lista sem imprimir o documento. Os demais, tanto word, excel, imprimi normalmente. Na rede consta mais duas impressoras matricial da epson que também imprimi normalmente. Bom, no meu ponto de vista deve ser algum problema com a impressora do cliente, pois na minha imprimi normalmente ou eu estou enganado ? Aguardo opiniões...


Obrigado


Josmar

[Maligno]

Existem impressoras que não tem mais a capacidade de imprimir os caracteres semi-gráficos da tabela ASCII. E a biblioteca WAPI só trabalha com esses caracteres, em modo RAW. Ao que tudo indica, sua PhotoSmart deve trabalhar apenas no modo gráfico, enquanto que a P1005 do cliente parece trabalhar com os dois modos. Se for isso mesmo, a solução será utilizar outro programa para fazer a impressão.

O estranho nisso tudo é a impressora de repente sair da lista de impressoras. Isso não deveria mudar. Não sei dizer o que pode estar acontecendo nesse caso.

[gvc]

Acho que em um momento extremamente raro, o mestre Maligno cometeu um leve equivoco. Ao que me lembro isso já aconteceu antes. Foi +/- na época em que os escribas estava tentando mudar a escrita cuneiforme. (Eh.Eh.Eh.)
Quem usa a impressora que funciona dos dois modos é o "Josmar dos Santos". O cliente deve estar usando a impressora que não tem a tabela de caracteres residente.

[Josmar dos Santos]
Teste o NODOSIMP para ver se consegue imprimir nas duas impressora.
Só para elencar: vc cria um arquivo texto com relatório e depois chama o nodosimp para mandar para a impressora. Eu normalmente mando para a impressora padrão do windows.
Se funcionar (acredito que sim) vc já achou a sua solução (uma delas, é claro).

[Maligno]

Ops! Inverti as bolas. Boa intervenção. Obrigado.

[Josmar dos Santos]

Ola GVC, tudo bom ? Estou tentando usar o NODOSIMP, mas estou tendo problemas para gerar o arquivo texto. O NODOSIMP, está dando essa mensagem "Arquivo de definição de gráfico não encontrado" . Ao entrar na pasta está gerando o nome do arquivo de texto "LISTA.TXT", Porém ao entrar no mesmo, não há conteúdo, somente o nome mesmo. Por favor, além é claro do nosso colega GVC, Se alguém trabalha com o NODOSIMP, favor verificar o que estou fazendo de errado ! Eis o meu código:

Código: Selecionar todos

TIPO_PRN="I"
IF .NOT. MENU_PRN4("OFIC_02") 
    RETURN
ENDIF
SET DEVICE TO PRINTER
X=1
PAG=1
SAI_DA="S"
TOT_0001=0
TOT_0002=0
TOT_0003=0
TOT_0004=0
TOT_0005=0
TOT_0006=0
DO WHILE .NOT. EOF()
   IF INKEY()=27
      SET DEVICE TO SCREEN
      SAI_DA=PERGUNTA("CONTINUA A IMPRESSAO")
      SET DEVICE TO PRINTER
      IF SAI_DA="N"
         EXIT
      ENDIF
   ENDIF
   SET FILTER TO GUINCHO->DATA>=FILTRO_1 .AND. GUINCHO->DATA<=FILTRO_2 .AND. GUINCHO->MOTORISTA=FILTRO_3
   IF !(GUINCHO->DATA>=FILTRO_1 .AND. GUINCHO->DATA<=FILTRO_2 .AND. GUINCHO->MOTORISTA=FILTRO_3)
      SKIP
   ENDIF
   IF X=1
      IF TIPO_PRN<>"T"
         @ 00,01 SAY CHR(18)
      ENDIF
      SET PRINT TO LISTA.TXT
      @ 01,01 SAY "RELAT. GUINCHO  " + ;
      "                                                                                            Pagina: ";
      +subs(str(pag+10000,5),2)
      @ 02,01 SAY "GUINCHO INDIVIDUAL    "+"               Data inicial: "+dtoc(filtro_1)+;
      "   Data final: "+dtoc(filtro_2)+;
      "                  Data: " +dtoc(dat_hoje)
      PAG++
      @ 02,01 SAY ""
      @ 03,01 SAY REPL("=",122)
      @ 04,001 SAY "NUMERO:"
      @ 04,008 SAY "DATA:"
      @ 04,022 SAY "KM:"
      @ 04,028 SAY "REQUIS:"
      @ 04,036 SAY "MOTOR:"
      @ 04,051 SAY "PREST:"
      @ 04,070 SAY "DIF.SEG:"
      @ 04,084 SAY "VALOR:"
      @ 04,095 SAY "PEDAGIO:"
      @ 04,112 SAY "SALDO:"
      @ 04,119 SAY "REG:"
      @ 05,01 SAY REPL("=",122)
      X=06
   ENDIF
   @ X,001 SAY NUMERO
   @ X,008 SAY DATA
   IF !EMPTY(KM_1)
      @ X,019 SAY KM_1
   ENDIF
   @ X,028 SAY VIST
   @ X,036 SAY MOTORISTA
   @ X,051 SAY MOTORISTA
   IF !EMPTY(DESPESA)
      @ X,065 SAY DESPESA
   ENDIF

   IF !EMPTY(V_GUINC)
      @ X,078 SAY V_GUINC
   ENDIF

   IF !EMPTY(V_PEDAG)
      @ X,091 SAY V_PEDAG
   ENDIF   
   xSALDO:=V_GUINC-V_PEDAG
   IF !EMPTY(xSALDO)
      @ X,105 SAY xSALDO
   ENDIF
   @ X,119 SAY CONTADOR
   TOT_0001=TOT_0001+DESPESA
   TOT_0002=TOT_0002+V_GUINC
   TOT_0003=TOT_0003+V_PEDAG
   TOT_0004=TOT_0004+xSALDO
   TOT_0005=TOT_0005+CONTADOR
   TOT_0006=TOT_0006+KM_1
   X=X+1
   SKIP
   IF X>58 .OR. EOF()
      IF EOF()
         TOT_02(2)
      ELSE
         TOT_02(1)
      ENDIF
      X=1
   ENDIF
ENDDO
EJECT
SET PRINT TO LISTA.TXT
SET DEVICE TO SCREEN
SET PRINT OFF
SET PRINT TO
RUN NODOSIMP LISTA.TXT 80 PRE/GRA
RETURN

FUNCTION TOT_02
PARA PAR1
IF PAR1=2
   X=59
ENDIF
@ X+0,01 SAY REPL("-",122)
IF PAR1=2
   @ X+1,001 SAY "TOTAL"
ELSE
   @ X+1,001 SAY "SUBTOTAL"
ENDIF
@ X+1,021 SAY TOT_0006 PICTURE "@Z 99999"
@ X+1,065 SAY TOT_0001 PICTURE "@Z 999999999.99"
@ X+1,078 SAY TOT_0002 PICTURE "@Z 999999999.99"
@ X+1,091 SAY TOT_0003 PICTURE "@Z 999999999.99"
@ X+1,106 SAY TOT_0004 PICTURE "@Z 999999999.99"
@ X+1,119 SAY TOT_0005 PICTURE "@Z 999"
@ X+2,01 SAY REPL("-",122)

Obrigado, Josmar

[gvc]

[Josmar dos Santos]
Para testar se o NODOSIMP esta funcionando use-o na linha de comando direto.
Mande imprimir um arquivo texto pequeno qualquer que vc tenha na pasta atual.

Código: Selecionar todos

TIPO_PRN = "I"
IF !MENU_PRN4("OFIC_02") 
   RETURN
END
SET PRINT TO LISTA.TXT
SET DEVICE TO PRINTER
X := 1
PAG := 1
SAI_DA := "S"
TOT_0001 := TOT_0002 := TOT_0003 := TOT_0004 := TOT_0005 := TOT_0006 := 0
WHILE !EOF()
   IF INKEY() = 27
      SET DEVICE TO SCREEN
      SAI_DA := PERGUNTA("CONTINUA A IMPRESSAO?")
      SET DEVICE TO PRINTER
      IF SAI_DA = "N"
         EXIT
      END
   END
   // SET FILTER TO GUINCHO->DATA >= FILTRO_1 .AND. GUINCHO->DATA <= FILTRO_2 .AND. GUINCHO->MOTORISTA = FILTRO_3 -- Vc esta criando filtro dentro do loop???
   IF GUINCHO->DATA < FILTRO_1 .or. GUINCHO->DATA > FILTRO_2 .or. GUINCHO->MOTORISTA # FILTRO_3
      dbskip()
   END
   IF X = 1
      IF TIPO_PRN # "T"
         @ 00,01 SAY CHR(18)
      END
      // SET PRINT TO LISTA.TXT -- Defina o nome do arquivo antes de mandar iniciar a impressão
      @ 01,01 SAY "RELAT. GUINCHO  " + padr("Pagina: ", 100) + strzero(pag, 4)
      @ 02,01 SAY "GUINCHO INDIVIDUAL                   Data inicial: " + dtoc(filtro_1) +;
         "   Data final: " + dtoc(filtro_2) + padr("Data: ", 23) + dtoc(dat_hoje)
      PAG++
      @ 02,01 SAY ""
      @ 03,01 SAY REPL("=",122)
      @ 04,001 SAY "NUMERO:"
      @ 04,008 SAY "DATA:"
      @ 04,022 SAY "KM:"
      @ 04,028 SAY "REQUIS:"
      @ 04,036 SAY "MOTOR:"
      @ 04,051 SAY "PREST:"
      @ 04,070 SAY "DIF.SEG:"
      @ 04,084 SAY "VALOR:"
      @ 04,095 SAY "PEDAGIO:"
      @ 04,112 SAY "SALDO:"
      @ 04,119 SAY "REG:"
      @ 05,01 SAY REPL("=",122)
      X := 06
   END
   @ X,001 SAY NUMERO
   @ X,008 SAY DATA
   IF !EMPTY(KM_1)
      @ X,019 SAY KM_1
   END
   @ X,028 SAY VIST
   @ X,036 SAY MOTORISTA
   @ X,051 SAY MOTORISTA
   IF !EMPTY(DESPESA)
      @ X,065 SAY DESPESA
   END

   IF !EMPTY(V_GUINC)
      @ X,078 SAY V_GUINC
   end

   IF !EMPTY(V_PEDAG)
      @ X,091 SAY V_PEDAG
   end   
   xSALDO := V_GUINC - V_PEDAG
   IF xSALDO # 0
      @ X,105 SAY xSALDO
   end
   @ X,119 SAY CONTADOR
   TOT_0001 += DESPESA
   TOT_0002 += V_GUINC
   TOT_0003 += V_PEDAG
   TOT_0004 += xSALDO
   TOT_0005 += CONTADOR
   TOT_0006 += KM_1
   X++
   dbskip()
   IF X > 58
      TOT_02(1)
   end
END
TOT_02(2)
EJECT
// SET PRINT TO LISTA.TXT - vc esta abrindo o arquivo texto novamente.
SET DEVICE TO SCREEN
// SET PRINT OFF 
SET PRINT TO
RUN NODOSIMP LISTA.TXT 80 PRE/GRA
RETURN

FUNCTION TOT_02(PAR1)

IF PAR1 = 2
   X := 59
end

@ X++,01 SAY REPL("-",122)

@ X,001 SAY iif(PAR1 = 2, "TOTAL", "SUBTOTAL")

@ X,021 SAY TOT_0006 PICTURE "@Z 99999"
@ X,065 SAY TOT_0001 PICTURE "@Z 999999999.99"
@ X,078 SAY TOT_0002 PICTURE "@Z 999999999.99"
@ X,091 SAY TOT_0003 PICTURE "@Z 999999999.99"
@ X,106 SAY TOT_0004 PICTURE "@Z 999999999.99"
@ X++,119 SAY TOT_0005 PICTURE "@Z 999"
@ X,01 SAY REPL("-",122)

x := 1

// Se é uma função tem que retornar algum valor.
// Imagino que vc postou somente parte do código

[Josmar dos Santos]

Ola colegas, obrigado por me ajudarem, no nodosimp deu certo a impressão, mas não consegui imprimir condensado. Também fiz um teste com o "notepad"(bloco de notas), confesso a vocês que eu achei mais interessante na minha atual situação. O único problema, foi tamém a impressão. Não saiu compactado, gostaria de saber se é possível imprimir tanto pelo nodosimp como também pelo notepad condensado ou compactado como preferirem ?

Josmar

[gvc]

Se vc quer imprimir todo o relatório compactado mude a quantidade de caracteres por linha. Vc esta colocando 80 atualmente.
Se é para compactar dentro do relatório veja o arquivo texto que acompanha o NODOSIMP. Ele explica como colocar caracteres de controle dentro do arquivo texto.

[Josmar dos Santos]

Boa tarde GVC, funcional legal a condensação das letras, só mais algumas perguntas para a gente fechar esse assunto: Toda vez que mando imprimir, ele da esse alerta "Archivo de definicion de grafico no encontrado" Como eliminar esse alerta ? e se é normal ele abrir aquele bloco texto parecido com o bloco de notas para imprimir, ou ele manda direto para impressora sem abrir nada ?

Sem mais, obrigado

Josmar

[billy1943]

Você deve estar usando o parametro /GRA;
Use somente a sintaxe:
Nodosimp <seu_arquivo.txt> 80 /pre/sel/ver/apa/mar6

onde:

80 -> 80 colunas de largura, pode ser também 96, 120, 140 ou 160 colunas

/pre -> pre-visualização do arquivo

/sel -> seleciona a impressora desejada

/ver -> mostra em uma janela que arquivo está processando

/apa -> formato paisagem

/mar -> margem esquerda desejada

/gra -> inclui um arquivo

Cuidado: o Nodosimp não controla quantas linhas por pagina ele pode imprimir, você é que tem de controlar isso;
Como ele diminui a altura dos caracteres quanto maior a largura mais linhas podem ser usadas.
Saltos de formulários deverão ser controlados pelo seu programa em função do número de linhas possíveis, para melhor aproveitamento de papel.

[Josmar dos Santos]

Ok billy, ótima edição, funcionou perfeitamente, agora ta tudo ok. Obrigado a todos


Josmar

[Pablo César]

Josmar, meu melhor conselho neste momento é você tentar dominar a linguagem, de preferência o Clipper por enquanto, mas ja em vista de desenvolver em Harbour. Você viu o sistema modular, isso vai te dar uma oportunidade cômoda para você fazer aplicativos ou itens de menu por separado de forma individual. Assim você poderá aos poucos emigrar de Clipper para Harbour. Pois lamentavelmente o Clipper não terá mais forma de rodar no novo ambiente. Os SO (sistema operacionais) estão aí... e amarrar a tecnologia por consequência do Clipper vai ser cada vez mais dificil de sustentar. Assim que eu diria de você se libertar-se desses aplicativos complementar para imprimir como esse NODOSIMP, etc...

Fui dar uma caminhada e colocar as coisas no seu lugar (na minha cabeça, claro) e percebí que 99% dos meus clientes de um determinado tipo de empresa desejam relatórios na tela, rara vez imprimem a não ser etiquetas. Aí pensei, vou facilitar a vida deles ainda mais, pois é o sistema que tem que se adequar ao usuário e não o usuário ao sistema (essa é uma prática conciente e louvável por parte do programador). Daí como meu sistema principal é modular, então pensei vou passar todos os relatórios para Harbour e não vou esquentar mais a cabeça com qual o tipo de impressora, qual são os comando para formatação... decidí então gerar sempre os relatórios em PDF e visualizar na tela, depois se o cliente quiser imprimir daí é com ele e com o SO. Mas vou largar de vez a opção de escolher tela ou impressora. Claro que haverão casos que exigirá que o relatório saia sempre na impressora, mas conveniamos: cada caso deve ser estudado. Por isso é fundamental analisar a real necessidade do cliente. E as etiquetas TODAS irei fazer em modo gráfico a impressão, chega de palhaçada com respeito as matriciais. Pois o mercado exige flexibilidade e não vou me amarrar. Aliás eu ja vinha praticando essa possibilidade, do usuário escolher em que forma quer imprimir: modo texto ou gráfico. Claro que gráfico é mais lento e ainda mais quando se trata de impressoras matriciais. Mas eu estou vendo que as impressoras gráficas estão ganhando espaço. Poderei ainda ter duas opções de impressão, mas basicamente irei direcionar tudo para PDFs.

Eu sei que falar é muito fácil, mas ja decidí. Não vou ficar mais amarrado. Aliás isso ja era para ter acontecido. Basta ver os tópicos dos colegas anunciando os recursos do Harbour. Mas aos poucos irei emigrar e espero começar logo logo. Você deveria focar para isso também. Deixe de lado a teimosia para os velhos burros como eu que custam em abrir a cabeça e adotar novas ferramentas. Eu ja pensei fazer em Java e até em C++, mas acho que a linguagem xBase é a que mais me agradou e vou seguir até onde puder, mas mantendo a minha cabeça sempre aberta (ao menos tento, rsrs).

[gvc]

[Josmar dos Santos]
Veja o arquivo LEIAME.DOC que vem junto com o NODOSIMP.
Vc esta colocando a opção de Arquivo gráfico (normalmente um logo) /GRA.
Vc esta instruindo-o para procurar o arquivo LOGO.DAT que conterá informações sobre o arquivo de imagem e coordenadas para impressão de um logo.

[Pablo César]
Se é para "puxar" para o [x]Harbour a coisa muda de figura.
Temos classe de relatório gráfico e classe para gerar PDF. Fora o acesso a SGDB relacional. (acredito que o maior ganho).
Eu tinha um abacaxi aqui de imprimir informes de rendimentos de anos anteriores.
Os mais antigos eram em XES e depois começaram a fazer em PCL.
Já dá para imaginar a bagunça. Nem temos mais impressoras que aceitam XES.
Todo ano era um "briga" para acertar o novo módulo de impressão. Um para cada ano.
Transformando para xHarbour foi possível colocar uma rotina para imprimir qq ano e independente da linguagem da impressora.

[billy1943]

Como disse nosso amigo Pablo Cesar, a gente deve continuar até onde der com o formato XBase, que, convenhamos, é um dos mais práticos que se possa ter, tanto no tratamento de estruturas de arquivos, como de tratamento de índices, etc.
Nos meus sistemas, muito grandes por sinal, é dificultoso transladá-los para Harbour/XHarbour, mas eu vou "comendo pelas beiradas", porque não dá para converter tudo de uma hora para outra.
Com respeito à impressão, objeto deste tópico, nos meus programas, toda impressão tem as seguintes alternativas:

1. Impressão pelo Word: -> arquivo gerado em formato .RTF, com tudo o que o Word pode proporcionar;
2. Impressão Nodosimp: -> arquivo formato .TXT para listagens, etc. para impressoras USB;
3. Impressão direta....: -> impressão direta em impressoras padrão DOS, usando LPT1;
4. Gravação SPOOL....: -> gravação somente do arquivo .TXT para impressão posterior;
5. Tela ..................: -> exibição somente em tela;

A forma 4 é a default.
Quando trabalhava com mainframes, toda impressão ia para Spool, daí a herança que incorporei aos meus sistemas.

[Josmar dos Santos]

Concordo com você Pablo, porém tive que dar uma alternativa rápida para o usuário para acalmar os ânimos deles. Agora com essa opção do "NODOSIMP", eles vão deixar eu respirar mais, me dando mais tempo para eu poder analizar e estudar com mais tempo. A WAPI está sendo usada para as outras impressoras, com exceção dessa mencionada acima ja com as explicações necessárias pelo "Maligno" e "GVC". Todos esses tópicos que andei lançando esses dias, foi para resolver esses problemas com uma certa urgência. Agora desafoguei e quero dar um tempo para os colegas do fórum também respirar. Mas não se tranquilizem tanto, em breve voltarei a encher as paciências de vocês..rs.rs.rs.

Abraços a todos,

Josmar