Alguem teria um exemplo pra comunicar e imprimir usando a epson tm-t20, tenho da bematech e daruma e foi facil de fazer, com esta medonha to apanhando
ecf epson tm-t20 exemplo
Enviado: 28 Jan 2019 21:31
por fladimir
TM-T20 q eu saiba não é ECF e sim uma impressora termica q pode ter comunicação via USB, Ethernet, Serial
Nesse caso se estivermos falando da mesma impressora a forma de imprimir é a mesma utilizada nas demais impressoras térmicas, no caso eu uso assim,
Se compartilhar ela, depois mapeia via NET Use como se fosse uma LPT1 e faz um Copy File (nome do arquivo TXT com os comandos ESC/POS etc) TO PORTA
Se for usar via Driver utilize o win_Prn():New( NomedaImpressoranoWindows ) e os comandos necessários da classe.
Partindo do principio q já imprima em impressoras USB, a explicação acima resolveria.
Agora se não imprime em USB ai tem q primeiro resolver esta parte pra depois direcionar pra impressora em questão.
ecf epson tm-t20 exemplo
Enviado: 29 Jan 2019 08:06
por pena
Desculpe pela ignorância, foi muito tempo imprimindo com impressora fiscal, por isso o termo ecf, mas é isso mesmo, o drama é que preciso imprimir nfc-e, o problema é o QrCode, que na bematech e daruma basta chamar a dll, porém na epson não funciona, como se não carregasse a dll
ecf epson tm-t20 exemplo
Enviado: 06 Fev 2019 01:48
por wagner_fix
Boa noite, estou com o mesmo problema.
E estou apanhando bastante, estou usando Delphi e não encontro nenhum modelo, e os que eu achei não consigo se comunicar com a .dll alguém poderia nos dar uma luz?
Grato,
Wagner
ecf epson tm-t20 exemplo
Enviado: 06 Fev 2019 08:19
por pena
Tentei com C# sem sucesso também, neste caso carrega a DLL, acha os métodos, mas quando envio comando pra ela, nada faz, eu instalei como se fosse uma impressora comum, conforme manda o manual.
ecf epson tm-t20 exemplo
Enviado: 06 Fev 2019 12:16
por MSDN
Eu imprimo nessa impressora, para tal faço o seguinte : ( foi a que achei mais prática para o meu caso, mas funciona )
IF MsgYesNo('Imprimir CUPOM NÃO FISCAL ?')
TRY
SELE fecha
fecha->(DBGoTop())
SET PRINTER ON
SET PRINTER TO COM5 //definido usando software porta virtual
SET CONSOLE OFF
? '------------------------------------------------'
? ' CUPOM PARA SIMPLES CONFERENCIA'
? ' NAO E DOCUMENTO FISCAL'
? ' COMA BEM RESTAURANTE E LANCHES'
? '================================================'
? 'DATA : '+dtoc(date())+' HORA: '+time()
? '------------------------------------------------'
? 'PRODUTO QTD UNIT. SUB-TOTAL'
? '------------------------------------------------'
WHILE .NOT. Eof()
? SubStr(fecha->nomeprod,1,25)+' '+Str(fecha->qtd,6,3)+' '+Str(fecha->unitario,5,2)+' '+Str(fecha->subtotal,8,2)
v_desconto := ( v_desconto + fecha->desc )
v_acrescimo := ( v_acrescimo + fecha->adic )
v_soma := ( v_soma + fecha->subtotal )
fecha->(DBSkip())
END
? '------------------------------------------------'
? ' SUB-TOTAL R$ ' + Str(v_soma,10,2)
? ' SUB-TOTAL R$ ' + Str(v_acrescimo,10,2)
? ' SUB-TOTAL R$ ' + Str(v_desconto,10,2)
? ' SUB-TOTAL R$ ' + Str((v_soma+v_acrescimo)-(v_desconto),10,2)
? '------------------------------------------------'
? 'Agradecemos a preferencia, Volte Sempre !'
? ''
? ''
? ''
? ''
? ''
SET CONSOLE ON
SET PRINTER TO
SET PRINTER OFF
// cortar o papel
v_comando = fcreate( "COM5",0 )
fwrite( v_comando, CHR(27)+"d"+CHR(3) )
fwrite( v_comando, CHR(27)+CHR(109) )
fclose( v_comando )
CATCH
Alerta('Falha na impressão','ATENÇÃO',3)
END
ENDIF
Caso queira tirar alguma dúvida, meus contatos estão na assinatura.
Abraços
ecf epson tm-t20 exemplo
Enviado: 06 Fev 2019 14:14
por wagner_fix
Direto pelo o IDE eu também tive sucesso, mas queria usar pela a DLL...
Mesmo assim muito obrigado pela resposta, vamos ver se alguém tem alguma solução sobre as DLL.
Se alguém precisar eu tenho um exemplo em delphi, consegui imprimir / cortar papel / imprimir imagem
Grato,
Wagner
ecf epson tm-t20 exemplo
Enviado: 06 Fev 2019 14:27
por pena
Wagner, eu quero
ecf epson tm-t20 exemplo
Enviado: 06 Fev 2019 14:55
por MSDN
Eu não tenho resposta pronta....rsss, mas talvez isso ajude !
Como configurar a impressora Epson TM-T20 USB para utilizá-la com a InterfaceEpsonNf.dll ?
Abraços
ecf epson tm-t20 exemplo
Enviado: 06 Fev 2019 18:05
por rubens
Não serve o ACBRmonitor?
ecf epson tm-t20 exemplo
Enviado: 06 Fev 2019 19:28
por wagner_fix
MSDN, muito boa a observação mas já tinha feito... O problema é que eu não acho essa tal .dll no site, todos os links estão quebrados. A única .dll que eu achei foi na internet. Possa ser ela que está com problemas...
Pena segue o código
Para imprimir logo
var
Bitmap: TBitmap;
begin
BitMap:=TBitmap.Create;
BitMap.LoadFromFile('C:\EDI\logo0.bmp');
with Printer do
begin
BeginDoc;
Canvas.Draw(25,25,BitMap);
EndDoc;
end;
BitMap.Free;
Para imprimir texto
var
i: Integer;
lst: TextFile;
begin
AssignPrn(lst);
Rewrite(lst);
Writeln(lst, '');
Writeln(lst, Centraliza(UpperCase(FormatDateTime('"Cidade", dd " DE " mmmm " DE " yyyy "."', Date)),48));
Writeln(lst, '');
Writeln(lst, '');
Writeln(lst, '');
Writeln(lst, Centraliza('ASS. :____________________________________',48));
Writeln(lst, '');
Writeln(lst, Centraliza(Trim('*** VOLTE SEMPRE!!! ***'),48));
CloseFile(lst);