EPSONS TM-T20

[crisvam]

Bom dia a todos

Alguém tem as declarações da impressora Epson TM-T20 que possa disponibilizar ou da a dica de como proceder?

Estou tendo de implantar esta impressora no meu sistema até de 1º de agosto e estou igual cego em tiroteio.

Grato a todos

[miragerr]

Ola amigo

O que você esta querendo fazer, Você quer usar esta impressora como ? em quê ?

Fico no aguardo.

[crisvam]

Ola amigo

O que você esta querendo fazer, Você quer usar esta impressora como ? em quê ?

Fico no aguardo.

Miragerr,

Aqui em mato grosso passou a ser obrigatorio a utilização da NFC-e a partir de 1º de agosto e alguns clientes compraram esta impressoa. Ela tem suporte para o Visual basic e Delphi, mas não para Fivewin. Como meu tempo está muiiiito pouco, optei por usar a DLL (InterfaceEpsonNF.DLL) mas minhas declarações não estão funcionando . Por ex.: a função para abertura da porta ...DLL32 Function EInicia_Porta(Nome_Porta AS STRING ) AS _INT PASCAL;

FROM "IniciaPorta" LIB "INTERFACEEPSONNF.DLL" Estou usando assim:

vRet := Einicia_Porta("USB")

If vRet = 0

Imprime(param...)

Endif

Não dá erro mas não imprime

[miragerr]

Ola amigo

Eu uso da seguinte forma: Instalo o driver que vem com ela e uso a FASTREPORT, no caso da impressão do QRCode você pode mandar imprimir um BMP.

Qualquer coisa estamos a disposição.

[crisvam]

Ola amigo

Eu uso da seguinte forma: Instalo o driver que vem com ela e uso a FASTREPORT, no caso da imporessao do QRCode pode pode mandar imprimir um BMP.

Qualquer coisa estamos a disposição.

miragerr,

Grato pela atenção.

Eu não tenho o FastReport. O drive de impressão está instalado corretamente, o que eu preciso é da declaração da dll (InterfaceEpsonNF.dll) e,claro, um exemplo de uso das funções.

[miragerr]

Ola amigo

Você pode usar a TPRINT normalmente então, é só fazer o formulário e mandar imprimir como se fosse uma impressora normal.

[crisvam]

Ola amigo

Você pode usar a TPRINT normalmente então, é só fazer o formulário e mandar imprimir como se fosse uma impressora normal.

Grato miragerr,

É, acho que terei que fazer isto

[fladimir]

Tenta o Suporte da Epson:

suporte ao desenvolvedor

11 3956-6654

11 3956-6667

[]´s

[kapiaba]

Galera, agluém pode ajuda aqui?

Declaração da dll InterfaceEpsonNF.dll

http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=15302

DLL32 Function ETaxa(nTaxa AS _INT) AS LONG PASCAL;

FROM "ConfiguraTaxaSerial" LIB "InterfaceEpsonNF.Dll"

DLL32 Function EInicia_Porta(Nome_Porta AS LPSTR ) AS WORD PASCAL;

FROM "IniciaPorta" LIB "InterfaceEpsonNF.Dll"


DLL32 Function EFecha_Porta() AS _INT PASCAL FROM "FechaPorta" LIB "INTERFACEEPSONNF.DLL"


DLL32 Function EImprimeTexto(cTexto AS STRING ) AS _INT PASCAL;

FROM "ImprimeTexto" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function EImpTextoTag(cTexto AS STRING )AS _INT PASCAL;

FROM "ImprimeTextoTag" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function EFormataTX(cTexto AS STRING,nTipoLetra AS _INT,Nitalico AS _INT,;

nSublin AS _INT,nExpan AS _INT,nEnfat AS _INT) AS _INT PASCAL;

FROM "FormataTX" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function EGuilhotina(nCorte AS _INT) AS _INT PASCAL;

FROM "AcionaGuilhotina" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function ELe_Status() AS _INT PASCAL FROM "Le_Status" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function EGaveta() AS _INT PASCAL FROM "Le_Status_Gaveta" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function EConf_Cod_Barras(nAltura AS _INT,nLarg AS _INT,nPos AS _INT,;

nTFonte AS _INT,nMargem AS _INT) as _INT PASCAL;

FROM "ConfiguraCodigoBarras" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function EImp_Cod_Barra(cBarras AS STRING) AS -INT PASCAL;

FROM "ImprimeCodigoBarrasCODABAR" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function EImp_EAN13(cEAN13 AS STRING) AS _INT PASCAL;

FROM "ImprimeCodigoBarrasEAN13" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function EImp_QRCode(nResta AS _INT,nTamod AS _INT,nTipo AS _INT,nVersao AS _INT,;

nModo AS _INT,Codigo AS STRING) AS _INT PASCAL;

FROM "ImprimeCodigoQRCODE" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function EGera_QRCode(cNome AS STRING,cDados AS STRING) AS _INT PASCAL;

FROM "GeraQRCodeArquivo" LIB "INTERFACEEPSONNF.DLL"

DLL32 Function EImp_Bmp(cArq AS STRING,nHescala AS _INT,nVescala AS _INT,nAng_IMP AS _INT);

AS _INT PASCAL FROM "ImprimeBmpEspecial" LIB "INTERFACEEPSONNF.DLL" 

********************************************************************************

Return "INTERFACEEPSONNF.DLL"

********************************************************************************

abs,

[miragerr]

Ola amigos

Kapi meu jovem, é melhor usar a TPRINT ou mesmo a FASTREPORT com o DRIVER DA IMPRESSORA instalado do que usar DLL, pois com DLL você usa somente uma impressora especifica, com o DRIVER instalado não precisa disso, pois você faz um formulário e funciona para qualquer impressora. é como se fosse uma impressora JATO DE TINTA, LASER e afins. EU faço isso até para impressoras de CÓDIGOS DE BARRA, pois tem sempre uma diferente no mercado, se tiver o DRIVER é só instalar e pronto.

Espero ter ajudado.

[kapiaba]

Obrigado Jackson, mas o que eu gostaria de saber, é como faz as declarações, veja neste exemplo, se esta correto ou se está errado:

#define "fivewin.ch"


STATIC XDLL_EPSON  //-> DLL DA IMPRESSORA FISCAL EPSON


FUNCTION Vendas_Cupom()


   XDLL_EPSON := LoadLibrary( "InterfaceEpsonNF.dll" )


   ... seu aplicativo


RETURN NIL


DLL32 Function ETaxa(nTaxa AS LONG) AS LONG PASCAL;

FROM "ConfiguraTaxaSerial" LIB XDLL_EPSON


DLL32 Function EInicia_Porta(Nome_Porta AS LPSTR ) AS LONG PASCAL;

FROM "IniciaPorta" LIB XDLL_EPSON


// Fecha porta de comunicacao

DLL32 Function EFecha_Porta() AS LONG PASCAL ;

      FROM "FechaPorta" LIB XDLL_EPSON


DLL32 Function EImprimeTexto( cTexto AS LPSTR ) AS LONG PASCAL;

FROM "ImprimeTexto" LIB XDLL_EPSON


DLL32 Function EImpTextoTag(cTexto AS LPSTR ) AS LONG PASCAL;

FROM "ImprimeTextoTag" LIB XDLL_EPSON


DLL32 Function EFormataTX(cTexto AS LPSTR,nTipoLetra AS LONG,Nitalico AS LONG,;

nSublin AS LONG,nExpan AS LONG,nEnfat AS LONG) AS LONG PASCAL;

FROM "FormataTX" LIB XDLL_EPSON


DLL32 Function EGuilhotina(nCorte AS LONG) AS LONG PASCAL;

FROM "AcionaGuilhotina" LIB XDLL_EPSON


DLL32 Function ELe_Status() AS LONG PASCAL FROM "Le_Status" LIB XDLL_EPSON


DLL32 Function EGaveta() AS LONG PASCAL FROM "Le_Status_Gaveta" LIB XDLL_EPSON


DLL32 Function EConf_Cod_Barras(nAltura AS LONG,nLarg AS LONG,nPos AS LONG,;

nTFonte AS LONG,nMargem AS LONG) as LONG PASCAL;

FROM "ConfiguraCodigoBarras" LIB XDLL_EPSON


DLL32 Function EImp_Cod_Barra(cBarras AS LPSTR) AS -INT PASCAL;

FROM "ImprimeCodigoBarrasCODABAR" LIB XDLL_EPSON


DLL32 Function EImp_EAN13(cEAN13 AS LPSTR) AS LONG PASCAL;

FROM "ImprimeCodigoBarrasEAN13" LIB XDLL_EPSON


DLL32 Function EImp_QRCode(nResta AS LONG,nTamod AS LONG,nTipo AS LONG,nVersao AS LONG,;

nModo AS LONG,Codigo AS LPSTR) AS LONG PASCAL;

FROM "ImprimeCodigoQRCODE" LIB XDLL_EPSON


DLL32 Function EGera_QRCode( cNome AS LPSTR, cDados AS LPSTR) AS LONG PASCAL;

FROM "GeraQRCodeArquivo" LIB XDLL_EPSON


DLL32 Function EImp_Bmp(cArq AS LPSTR,nHescala AS LONG,nVescala AS LONG,nAng_IMP AS LONG);

AS LONG PASCAL FROM "ImprimeBmpEspecial" XDLL_EPSON

Abs.

[crisvam]

Obrigado Jackson, mas o que eu gostaria de saber, é como faz as declarações, veja neste exemplo, se esta correto ou se está errado:

#define "fivewin.ch"
 
STATIC XDLL_EPSON  //-> DLL DA IMPRESSORA FISCAL EPSON
 
FUNCTION Vendas_Cupom()
 
   XDLL_EPSON := LoadLibrary( "InterfaceEpsonNF.dll" )
 
   ... seu aplicativo
 
RETURN NIL
 
DLL32 Function ETaxa(nTaxa AS LONG) AS LONG PASCAL;
FROM "ConfiguraTaxaSerial" LIB XDLL_EPSON
 
DLL32 Function EInicia_Porta(Nome_Porta AS LPSTR ) AS LONG PASCAL;
FROM "IniciaPorta" LIB XDLL_EPSON
 
// Fecha porta de comunicacao
DLL32 Function EFecha_Porta() AS LONG PASCAL ;
      FROM "FechaPorta" LIB XDLL_EPSON
 
DLL32 Function EImprimeTexto( cTexto AS LPSTR ) AS LONG PASCAL;
FROM "ImprimeTexto" LIB XDLL_EPSON
 
DLL32 Function EImpTextoTag(cTexto AS LPSTR ) AS LONG PASCAL;
FROM "ImprimeTextoTag" LIB XDLL_EPSON
 
DLL32 Function EFormataTX(cTexto AS LPSTR,nTipoLetra AS LONG,Nitalico AS LONG,;
nSublin AS LONG,nExpan AS LONG,nEnfat AS LONG) AS LONG PASCAL;
FROM "FormataTX" LIB XDLL_EPSON
 
DLL32 Function EGuilhotina(nCorte AS LONG) AS LONG PASCAL;
FROM "AcionaGuilhotina" LIB XDLL_EPSON
 
DLL32 Function ELe_Status() AS LONG PASCAL FROM "Le_Status" LIB XDLL_EPSON
 
DLL32 Function EGaveta() AS LONG PASCAL FROM "Le_Status_Gaveta" LIB XDLL_EPSON
 
DLL32 Function EConf_Cod_Barras(nAltura AS LONG,nLarg AS LONG,nPos AS LONG,;
nTFonte AS LONG,nMargem AS LONG) as LONG PASCAL;
FROM "ConfiguraCodigoBarras" LIB XDLL_EPSON
 
DLL32 Function EImp_Cod_Barra(cBarras AS LPSTR) AS -INT PASCAL;
FROM "ImprimeCodigoBarrasCODABAR" LIB XDLL_EPSON
 
DLL32 Function EImp_EAN13(cEAN13 AS LPSTR) AS LONG PASCAL;
FROM "ImprimeCodigoBarrasEAN13" LIB XDLL_EPSON
 
DLL32 Function EImp_QRCode(nResta AS LONG,nTamod AS LONG,nTipo AS LONG,nVersao AS LONG,;
nModo AS LONG,Codigo AS LPSTR) AS LONG PASCAL;
FROM "ImprimeCodigoQRCODE" LIB XDLL_EPSON
 
DLL32 Function EGera_QRCode( cNome AS LPSTR, cDados AS LPSTR) AS LONG PASCAL;
FROM "GeraQRCodeArquivo" LIB XDLL_EPSON
 
DLL32 Function EImp_Bmp(cArq AS LPSTR,nHescala AS LONG,nVescala AS LONG,nAng_IMP AS LONG);
AS LONG PASCAL FROM "ImprimeBmpEspecial" XDLL_EPSON

Abs.

Valeu kapiaba, vou testar...

Um detalhe para futuro existe uma configuração expecífica da impressora que deverá ser mudada.

Vou testar as declarações e publico a configuração aeita pela Epson TM-T20

Muito grato pela colaboração.

[kapiaba]

KKKKKKKKKKKKKKK, Putz, como sou burro, fiquei perdendo meu tempo no forum do Toledo, e o Crisvam, é o Cristovam do PCTOLEDO.

Eu quero morreeeeeeeeeeeeeeeeee. kkkkkkkkkkkkkkkkkkkkkkkkk

abs,

[crisvam]

KKKKKKKKKKKKKKK, Putz, como sou burro, fiquei perdendo meu tempo no forum do Toledo, e o Crisvam, é o Cristovam do PCTOLEDO.

Eu quero morreeeeeeeeeeeeeeeeee. kkkkkkkkkkkkkkkkkkkkkkkkk

abs,

Vc está rindo, pode, ajudou uma barbaridade. Porque antes de ir ao PCTOLEDO venho aqui e, a solução, peguei a sua. Mais uma vez, grato pela atenção.

Eu já tinha colocado esta questão aqui, e não tinha obtido uma resposta plausível, inclusive estava desenvolvendo com a classe Tprinter, Agora consegui ler a ddl da Epson e fazê-la funcionar. Depois passo a solução completa aqui.

[julio]

Estou com o mesmo problema.

O que foi feito para funcionar?

Todas as funcoes estao retornando ZERO sem executar

Descobri o problema.

É que todas as funcoes retornam 1 (sucesso) diferente da fiscal que é 0

Obrigado pela atenção.

[emotta]

Se vc usar a DLL da impressora pra cada fabricante vc terá que fazer uma condição no seu software.

Use o driver normal do windows, como uma impressora qualquer.... Funciona legal e fica compativel pra todas que seu cliente colocar, se ele mudar o fabricante vc nao muda nada no seu sistema.

Eu aqui uso desta maneira e funciona bem. Tenho clientes usando a EPSON e outros usando BEMATECH.

abraços

Bom dia a todos

Alguém tem as declarações da impressora Epson TM-T20 que possa disponibilizar ou da a dica de como proceder?

Estou tendo de implantar esta impressora no meu sistema até de 1º de agosto e estou igual cego em tiroteio.

Grato a todos

[fladimir]

Crisvam não esquece de postar viu, tenho um epson aki até q vai, mas queria tirar melhor proveito, conto com sua ajuda.

[]´s