Jump to content
Fivewin Brasil

Abertura de gaveta em impressora não fiscal


Paulodrplus

Recommended Posts

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


 

Link to comment
Share on other sites

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



 

Link to comment
Share on other sites

      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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...