Paulodrplus Posted January 11, 2018 Report Share Posted January 11, 2018 Bom dia! Gostaria de obter a seguinte informação; Como posso abrir gaveta de dinheiro com impressora não fiscal de qualquer modelo? A que possuo é uma Epson e do meu cliente é uma diebold. Obrigado! Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 11, 2018 Report Share Posted January 11, 2018 Veja se ajuda este texto do PCToledo que pegeui um dia... Impressora Termica Epson tm-t88IIIp - Guilhotina Re: Qual o comando para acionar a abertura da gaveta na Olivetti Cortar papel na Guilhotina Epson/olivetti Prezado Colega Segundo o guia de referência da Olivetti ela emula a Epson TM-T88 e TM-T90, partindo desse principio então podemos acreditar que ela usa o padrão EPSON ESC/POS de comandos, no link abaixo poderá baixar a lista de comandos no padrão ESC/POS. http://postechgroup.com/updata/support/ ... ESCPOS.pdf É bom baixar e guardar, pois esse padrão é utilizado na maioria das impressoras térmicas. No seu caso o comando deve ser o ESC+p. = CHR(27)+CHR(112) Outro comando que pode ser útil é o da guilhotina GS+V = CHR(29)+CHR(86) Boa sorte ! Até logo. Marcelo Correto: Bom dia a todos, Obrigado Roberio, muito bom! Nestes codigos de comando não tem o comando para acinar a guilhotina, mas consegui descobrir na net da vida. ESC m ( CHR(27)+CHR(109) Obrigado a todos. Bematech 4200 TH - Comando de imporessão Nova mensagempor lugab » 17 Fev 2014 13:36 Bom dia, colegas Alguém pode passar a linha de comando da 4200 TH para fazer o corte do papel ? Grato Gabriel // PC TOLEDO lugab@bol.com.br lugab Bematech 4200 TH - Comando de imporessão Oi! ? chr(27)+'i' Troque o 'i' pelo 'm' p/ marca epson. Saudações, Itamar M. Lins Jr. EPSON SET DEVICE TO PRINTER && manda a impresora CHR(27)+CHR(64) && inicializa la impresora CHR(27)+"c0"+CHR(1) && imprime un solo rollo (receipt CHR(27)+"c0"+CHR(2) && imprime un solo rollo journal CHR(27)+chr(122)+chr(1) && imprime en ambos rollos * ESTOS 2 TE HACEN EL CORTE CHR(27)+"d"+CHR(3) CHR(27)+CHR(109) chr(27)+chr(112)+chr(0)+chr(25)+chr(250) && abre el cajon SET PRINTER to Quote Link to comment Share on other sites More sharing options...
Ladinilson Posted January 11, 2018 Report Share Posted January 11, 2018 Uso com a TDOSPRN STATIC FUNCTION ABREGAV() IF ConfigV->gaveta cFile:= LPORTA oPrng:= TDosPrn():New( cFile ) oPrng:StartPage() oPrng:Command( "27, 119, 140" ) oPrng:SAY(00,00," ") oPrng:END(1) // oImpr:=FCREATE("LPT1.PRN") // Imp(oImpr,CHR(27)+"v2") // FCLOSE(oImpr) // Para as outras: CHR(27)+"p" ENDIF RETURN nil Quote Link to comment Share on other sites More sharing options...
MatheusFarias Posted January 12, 2018 Report Share Posted January 12, 2018 cTextoAbreGaveta := "" nModeloComandoLocal := 1 IF "MP" $ UPPER(PrnGetName()) // Bematech cTextoAbreGaveta := CHR(29) +CHR(249) +CHR(32) +CHR(0) +CHR(27) +CHR(116) +CHR(8) +CHR(27) +CHR(118) +CHR(140) ENDIF * IF "DARUMA" $ UPPER(PrnGetName()) cTextoAbreGaveta := CHR(27) +CHR(112) ENDIF * IF "EPSON" $ UPPER(PrnGetName()) cTextoAbreGaveta := chr(027)+chr(112)+chr(000)+chr(010)+chr(100) nModeloComandoLocal := 2 ENDIF * *cCaminhoTXT := CurDrive()+":\"+CurDir()+"\GAVETA.TXT" cCaminhoTXT := "C:\SISTEMA\GAVETA.TXT" MemoWrit(cCaminhoTXT,cTextoAbreGaveta) cDestinoComando := "" if left(cImpressoraPadraoAbertura,2) == "\\" cDestinoComando := '"'+cImpressoraPadraoAbertura+'"' else do case case nModeloComandoLocal == 1 cDestinoComando := PrnGetPort() case nModeloComandoLocal == 2 cDestinoComando := '"'+"\\127.0.0.1\"+alltrim(PrnGetName())+'"' endcase endif * cComandoGaveta := 'CMD.EXE /C COPY '+cCaminhoTXT+' '+cDestinoComando WaitRun(cComandoGaveta,0) * **PS: A EPSON PRECISA ESTA COMPARTILHADA kapiaba 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.