Impressao UsB ta!, Mas onde?

[sygecom]

Tche, até entendo, mas confesso que o que aconteceu comigo de não imprimir em modo RAW,não foi ratiada do SPOOLER ou uma da quelas que só acontece uma vez e não acontece mais,...isso foi em um cliente.....e fiz de tudo que foi teste e tudo que foi possivel....sempre no modo RAW não imprimia...mas tudo bem. vamos esperar pra ver se aparece alguem com um problema parecido...

Obs:Na Classe Win32Prn vc pode deifinir a qualidade da impressão que deixa mais rapido a impressão(Modo Rascunho)

Abraços
Leonardo Machado

[Maligno]

isso foi em um cliente.....e fiz de tudo que foi teste e tudo que foi possivel....sempre no modo RAW não imprimia...

Eu acho estranho, mas enfim, o Windows é estranho mesmo.

Obs:Na Classe Win32Prn vc pode deifinir a qualidade da impressão que deixa mais rapido a impressão(Modo Rascunho)

Isso não refresca muita coisa. Vai continuar muito mais lento que no modo texto. Mas tudo bem. Quem não se importar com isso vai continuar usando.

[Renan]

Ai pessoal fiz um program bem porcaria soh pra mostra o meu problema

Código: Selecionar todos

//--------------------------------------
#include "inkey.ch"
#include "visual2.ch"
set key K_F10 to Saida
desktop("Impressao usb")
mb = NewBarMenu()
mp = NewDownMenu()
AddBarItem(mb,"&Imprimir","Impressa do renan", mp)
AddDownItem(mp,"&Codigo","deigete o codigo", {|| MAIN()} )
while .t.	    // Loop principal

   BarMenu( mb )  //VL-Ap¢s a definicao dos menus, BarMenu( mBar ) controla tudo

   set key K_F10 to // Desligamos set key
   SetKeyMouse( K_F10, {} ) //VL-Desativamos o Mouse para F10

   VLExit()	    //VL-Pede confirmacao para sair

   set key K_F10 to saida // Se chegou aqui, significa que nao saiu...
   SetKeyMouse( K_F10, { 24, 24, 72, 79 } ) //VL-Define novamente F10 p/ mouse

end

return nil
/////////////////////////////////
function saida
local aKM := SetKeyMouse( K_F10, {} ) //VL-Salvamos e desativamos F10 p/ mouse
set key K_F10 to
VLExit()	//VL-Sa¡da da Visual Lib
set key K_F10 to saida
SetKeyMouse( K_F10, aKM ) //VL-Reativamos F10 para o mouse
return nil
////////////////////////////////
function Main()
IF .NOT. FILE ("AGEN.DBF")
alert("Banco de dados nao encontrado, deseja criar um ?")       
     ESTRU:={}       
     AADD(ESTRU, {"CODIGO","N",3,0})       
     AADD(ESTRU, {"NOME","C",40,0})   
     AADD(ESTRU, {"ENDE","C",40,0})
     AADD(ESTRU, {"NIVER","D",8,0})
     AADD(ESTRU, {"FONE","C",10,0})
     AADD(ESTRU, {"CEL","C",10,0})
     AADD(ESTRU, {"EMAIL","C",40,0})
     DBCREATE("AGEN",ESTRU)          
                                    
ENDIF
         aEn = savenv( 01, 01, 25, 79  ) //VL-Salva o ambiente
                SET DATE BRITISH
                SET CENTURY off
                SET CONFIRM ON
                SELECT 1
                USE AGEN
                IF !FILE("INDIC1.NTX")
                   INDEX ON STR(CODIGO,3,0) TO INDIC1
                ENDIF
                SET INDEX TO INDIC1
                win( 08, 07, 23, 63, "Impressao" )
                setcolor( "N*/W" )
                nCod = 0
                @ 9,8 say" que codigo deseja imprimir ?" get nCod
                read
                seek str(nCod,3,0)
                if found()
                n = "Nome.... :" + NOME           
                save to Teste.TXT all like n
                run start teste.txt
                if .not. file("agen.dbf")
                run usbprint teste.txt /sel
                endif
               
                else
                @ 10,9 say"erro"
               
                endif
                 rstenv(aEn)
                RETURN nil

ai pessoal quando ele salva no txt ele salva assim

N ‘

[Maligno]

Mas você está tentando imprimir um arquivo .MEM, que é o que está sendo usado no comando SAVE TO, que não serve pra isso. Esse tipo de arquivo .MEM se presta ao armazenamento de variáveis de memória. Ele contém dados não-imprimíveis. Você precisa salvar como texto. Use, por exemplo, impressão direcionada para um arquivo texto.

SET PRINTER TO TESTE.TXT
SET DEVICE DO PRINT
...
...
...
SET DEVICE TO SCREEN

Algo desse tipo.

[sygecom]

Ai pessoal fiz um program bem porcaria soh pra mostra o meu problema

Código: Selecionar todos

//--------------------------------------
#include "inkey.ch"
#include "visual2.ch"
set key K_F10 to Saida
desktop("Impressao usb")
mb = NewBarMenu()
mp = NewDownMenu()
AddBarItem(mb,"&Imprimir","Impressa do renan", mp)
AddDownItem(mp,"&Codigo","deigete o codigo", {|| MAIN()} )
while .t.	    // Loop principal

   BarMenu( mb )  //VL-Ap¢s a definicao dos menus, BarMenu( mBar ) controla tudo

   set key K_F10 to // Desligamos set key
   SetKeyMouse( K_F10, {} ) //VL-Desativamos o Mouse para F10

   VLExit()	    //VL-Pede confirmacao para sair

   set key K_F10 to saida // Se chegou aqui, significa que nao saiu...
   SetKeyMouse( K_F10, { 24, 24, 72, 79 } ) //VL-Define novamente F10 p/ mouse

end

return nil
/////////////////////////////////
function saida
local aKM := SetKeyMouse( K_F10, {} ) //VL-Salvamos e desativamos F10 p/ mouse
set key K_F10 to
VLExit()	//VL-Sa¡da da Visual Lib
set key K_F10 to saida
SetKeyMouse( K_F10, aKM ) //VL-Reativamos F10 para o mouse
return nil
////////////////////////////////
function Main()
IF .NOT. FILE ("AGEN.DBF")
alert("Banco de dados nao encontrado, deseja criar um ?")       
     ESTRU:={}       
     AADD(ESTRU, {"CODIGO","N",3,0})       
     AADD(ESTRU, {"NOME","C",40,0})   
     AADD(ESTRU, {"ENDE","C",40,0})
     AADD(ESTRU, {"NIVER","D",8,0})
     AADD(ESTRU, {"FONE","C",10,0})
     AADD(ESTRU, {"CEL","C",10,0})
     AADD(ESTRU, {"EMAIL","C",40,0})
     DBCREATE("AGEN",ESTRU)          
                                    
ENDIF
         aEn = savenv( 01, 01, 25, 79  ) //VL-Salva o ambiente
                SET DATE BRITISH
                SET CENTURY off
                SET CONFIRM ON
                SELECT 1
                USE AGEN
                IF !FILE("INDIC1.NTX")
                   INDEX ON STR(CODIGO,3,0) TO INDIC1
                ENDIF
                SET INDEX TO INDIC1
                win( 08, 07, 23, 63, "Impressao" )
                setcolor( "N*/W" )
                nCod = 0
                @ 9,8 say" que codigo deseja imprimir ?" get nCod
                read
                seek str(nCod,3,0)
                if found()
                    SET DEVICE TO PRINT
                    SET PRINT TO TESTE.TXT
                   
                    @ PROW()+1,0 SAY "Nome....:" + NOME
                    
                    SET PRINTER TO
                    set device to screen

                run start teste.txt
                if .not. file("agen.dbf")
                   run usbprint teste.txt /sel
                endif
               
                else
                @ 10,9 say"erro"
               
                endif
                 rstenv(aEn)
                RETURN nil

ai pessoal quando ele salva no txt ele salva assim

N ‘

[sygecom]

Alias...não é soh a WAPI que não funciona, o xharbour em modo RAW tb. não funciona em algumas impressoras...pq ? não sei mas vou descobrir...

Abraços
Leonardo Machado

[Maligno]

Veja a alteração que fiz no seu exemplo.....

Tirou a oportunidade do colega de aprender mais, fazendo a alteração ele mesmo. :\

[sygecom]

Veja a alteração que fiz no seu exemplo.....

Tirou a oportunidade do colega de aprender mais, fazendo a alteração ele mesmo. :\

Ual....achei que o negocio era ajudar...hehe...mas tudo bem, se não fiz o bem....o mal eu tenho certeza que eu não fiz.

Abraços
Leonardo Machado

[Maligno]

Ajudar, ajudou. Claro. Mas deu o peixe já temperado. Teria sido mais produtivo se apenas dissesse onde jogar a vara.

[sygecom]

Ajudar, ajudou. Claro. Mas deu o peixe já temperado. Teria sido mais produtivo se apenas dissesse onde jogar a vara.

Vai ver, é pq não sei pesca mesmo....hehe...nas proximas...vou mais devagar.

Abraços
Leonardo Machado

[Renan]

Ola Pessoal, Sygecom mt brigado pelo seu exemplo, o modelo da impressora eh :
Lexmark X 1195 series

[Renan]

Ai Pessoal Cortando um pouco o assunto, Mas bizoiando o site ai do pc toledo
vi esse cd-clipper pra vende , como tipo dia 30 eh meu niver vai sobra uma verbinha que da pa compra o cd, sei axam que val a pena?

[sygecom]

Ola Pessoal, Sygecom mt brigado pelo seu exemplo, o modelo da impressora eh :
Lexmark X 1195 series

Vou colocar essa impressora na lista negra....hehe..

Abraços
Leonardo Machado

[Stanis Luksys]

Ai Pessoal Cortando um pouco o assunto, Mas bizoiando o site ai do pc toledo
vi esse cd-clipper pra vende , como tipo dia 30 eh meu niver vai sobra uma verbinha que da pa compra o cd, sei axam que val a pena?

Conhecimento sempre vale a pena. Mas existe a ressalva do clipper ser uma linguagem em decadência. No mais, essa é uma decisão que cabe exclusivamente a você.

Isso aí!

[sygecom]

Ai Pessoal Cortando um pouco o assunto, Mas bizoiando o site ai do pc toledo
vi esse cd-clipper pra vende , como tipo dia 30 eh meu niver vai sobra uma verbinha que da pa compra o cd, sei axam que val a pena?

Tche, sei o que acompanha no CD...mas se vc esta começando em CLIPPER derepende pode ser que seja uma boa....derepente acompanha uns sisteminha de exemplo e isso pode ser uma boa....agora se vc ja tem algum sistema rodando ai e quer apenas dar uma melhorada e ir tirando duvidas...acredito que seria o ideal vc ir postando aqui no forum mesmo e o povo vai ajudando....agora por outro lado sem querer rasga ceda e nem ganho nd para isso acho que se vc comprar o CD do PCtoledo vc vai esta ajudando a manter esse forum....pq o Toledo deve ter algum custo para manter esse forum e nd mais justo....ele ter algo que lhe de retorno..para manter esse forum.

Abraços
Leonardo Machado