emotta Posted September 19, 2014 Report Share Posted September 19, 2014 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 19, 2014 Report Share Posted September 19, 2014 Fácil: @ PROW(),PCOL() SAY Chr(27) + '@' && INICIALIZA IMPRESSORA @ PROW(),PCOL() SAY CHR( 29 ) + CHR( 86 ) + CHR( 01 ) && Aqui abre a gaveta Ou // Guilhotina @ PRow(),001 Say Chr(29)+Chr(86)+Chr(66)+Chr(0) // Abrir Gaveta @ PRow(),001 Say Chr(27)+Chr(112)+Chr(0)+Chr(60)+Chr(120) abs, Quote Link to comment Share on other sites More sharing options...
Marca Posted September 19, 2014 Report Share Posted September 19, 2014 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 19, 2014 Report Share Posted September 19, 2014 Manual: http://www.pctoledo.com.br/forum/viewtopic.php?f=49&t=13252 abs, Quote Link to comment Share on other sites More sharing options...
emotta Posted September 19, 2014 Author Report Share Posted September 19, 2014 Obrigado pessoal, mas fui pelo lado mais simples... Estou usando a TPrinter mesmo, com o ENDPAGE ele ja corta, ficou show de bola.... Abraços e obrigado 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.