Jump to content
Fivewin Brasil

Disparar guilhotina impressora não fiscal


emotta

Recommended Posts

Estou fazendo a impressão em uma impressora não fiscal. Após o termino da impressão eu quero disparar a guilhotina dela para cortar o papel, como fazer?

A minha impressora é uma EPSONTMT20

A minha rotina de impressão é essa:

#command @ <nL>, <nC> PSAY <cS>  => DevPos(<nL>,<nC> ); DevOut(<cS>,)

Function Ficha()
Local cImp := "EPTONTMT20"

   PrinterSetup()
   cImp := AllTrim(PrnGetName())
   MsgStop(cImp)

   SET DEVICE TO PRINTER
   cImp := alltrim(cImp)
   SET PRINT TO &cImp
   SetPrc(0,0)
   
	@ 01,01 PSAY "linha 1"
	@ 02,01 PSAY "linha 2"
   
   SET PRIN TO
   SET PRIN OFF
   SET DEVICE TO SCREEN

MsgStop("Impressão concluida")

Return

As impressões "linha 1" e "linha 2" estão sendo impressas e tentei enviar o codigo CHR(12) (EJECT) mas sem sucesso.

Abraços

Link to comment
Share on other sites

Estou fazendo a impressão em uma impressora não fiscal. Após o termino da impressão eu quero disparar a guilhotina dela para cortar o papel, como fazer?

A minha impressora é uma EPSONTMT20

A minha rotina de impressão é essa:

#command @ <nL>, <nC> PSAY <cS>  => DevPos(<nL>,<nC> ); DevOut(<cS>,)

Function Ficha()
Local cImp := "EPTONTMT20"

   PrinterSetup()
   cImp := AllTrim(PrnGetName())
   MsgStop(cImp)

   SET DEVICE TO PRINTER
   cImp := alltrim(cImp)
   SET PRINT TO &cImp
   SetPrc(0,0)
   
	@ 01,01 PSAY "linha 1"
	@ 02,01 PSAY "linha 2"
   
   SET PRIN TO
   SET PRIN OFF
   SET DEVICE TO SCREEN

MsgStop("Impressão concluida")

Return

As impressões "linha 1" e "linha 2" estão sendo impressas e tentei enviar o codigo CHR(12) (EJECT) mas sem sucesso.

Abraços

Emota

Cada imnpressora tem seu caracter de corte

Este exemplo da Daruma acho q. é o mesmo para Epson teste e me diga

***** Daruma Dr600/700 nao fiscal

cCorte += CHR(27) + "m" + CRLF // Inicializa a guilhotina

Tenho estes ainda

Function CutPaper(oPrn,nRow,vModo)

DEFAULT vModo := 1

Do Case

Case vModo = 1

oPrn:Command("27","109") // corte de pagina para la TMU200D //oPrn:Command("27","100","48") // corte de pagina para la STAR 2000 / SP2520

Case vModo = 2

oPrn:Command("27","7")

oPrn:Command("27","110")

Case vModo = 3

oPrn ay(nRow,0,Chr(29),Chr(86),Chr(1)) //oPrn:Write( Chr(29)+Chr(86)+Chr(1) )

oPrn ay(nRow,0,Chr(7))

oPrn ay(nRow,0,Chr(27),Chr(112),Chr ,Chr(25),Chr(250))

Other

Return Nil

EndCase

Return Nil

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...