Dúvida, guilhotina impressora Tanca

[porter]

Olá pessoal, em uma impressora térmica Tanca TP-620, depois de impresso 69 linhas, a guilhotina é acionada, corta o papel, e termina de imprimir o que falta ser impresso, qual o comando usado para acionar essa guilhotina, mas apenas quando terminar a impressão completa, não quero que a impressora acione a guilhotina sempre que for impressa 69 linhas ou mais.

HARBOUR, Console

Obrigado.

[ANDRIL]

Veja nas propriedades da impressora na opção Preferências-> Avançado -> Tamanho do papel. Veja se consta a opção de 80mm x 3000mm ou algo similar.
Creio que o corte ocorre por que esta ativado nas preferências para fazer o corte no final da impressão ou final do papel definido.

[porter]

Olá ANDRIL, obrigado por sua atenção
Nas propriedades da impressora, tem apenas essas opções descritas abaixo, não tem a opção de fazer o corte no final da impressão ou algo parecido.

Configuração do documento avançado Tanca TP-620
Papel/saída

Tamanho do Papel: 80(72.1) x 297 mm
Contagem de cópias: 1 Copiar

Opções de documento
Recursos avançados de impressão: Ativado
Layout de Páginas por Folha: Á Direita e Abaixo
Meio-tom: Seleção Automática

Obrigado.

[porter]

Olá pessoal, alguém aqui do fórum, trabalha com a impressora térmica não fiscal Tanca TP-620, não encontrei em suas propriedades, opção de acionar a guilhotina, qual comando usar para acionar a guilhotina, apenas quando terminar toda impressão.

Na Bematech MP-4200 TH sei que para acionar a guilhotina é Chr(27) + Chr(19)

Harbour 3.2.0dev console

[ANDRIL]

Olá!
Já tentou CHR(27)+CHR(105) ou CHR(27)+CHR(109)

Até+

[porter]

Olá,
A guilhotina está funcionando, o problema, é que após 60 linhas impressas, o papel é cortado, imprime o restante das linhas faltantes, e corta novamente após o término da impressão, a impressora está cortando o papel duas vezes, antes de terminar a impressão e após o término da impressão quando a impressão tem mais de 60 linhas.

[Itamar M. Lins Jr.]

Olá!
Andril já respondeu.
Tá configurado para A4. Precisa ter opção de bobina.

Saudações,
Itamar M. Lins Jr.

[ANDRIL]

Porter, a guilhotina esta obedecendo o tamanho do papel configurado nela. Tenta ver se consegue desabilitar o corte no final da impressão. Veja também se o driver instalado é o correto, por que geralmente as impressoras de cupom tem uma opção 80mm x 3000mm que é um tamanho suficiente para imprimir algo em cupom sem que acione a guilhotina automaticamente. Neste caso, voce pode enviar o comando de corte quando terminar sua impressão.

Veja foto em anexo.

[porter]

Olá !
Mudei a configuração da impressora em Tamanho do Papel para Printer 80(72.1) x 3276 mm, mas não resolveu o problema, agora criei uma rotina, para informar o comando para cortar o papel, já testei com esses comandos, mas não corta o papel: CHR(27)+CHR(105), CHR(27)+CHR(109), CHR(27)+CHR(119),

Código: Selecionar todos

procedure TesteDeImpressao()
   guilhotina = SPACE(40)
   set device to screen
   @ 09,25 clear to 11,75
   @ 09,25 to 11,75
   @ 10,26 say "Guilhotina" get guilhotina PICT "@!"
   read
   IF LASTKEY() = 27
      RETURN
   ENDIF
   contl = 1
   arq = "testeimp.txt"
   SETPRC(0,0)
   SET DEVICE TO PRINT
   SET PRINT ON

   SET PRINTER TO C:\TesteDeImpressao\&arq

   @ contl,00 SAY "**** TESTE DE IMPRESSAO ****"
   contl++
   @ contl,00 SAY "**** TESTE DE IMPRESSAO ****"
   contl++
   @ contl,00 Say &guilhotina
   contl++

   @ contl,00 SAY "**** TESTE DE IMPRESSAO ****"
   contl++
   @ contl,00 SAY "**** TESTE DE IMPRESSAO ****"
   contl++
   @ contl,00 Say &guilhotina
   
   SET DEVICE TO SCREEN
   SET PRINTER TO
   SET PRINTER OFF
   
   W32PRN(Arq,ImpSelecionada,"COMPRIMIDO")
   RETURN

Harbour 3.2.0dev console

[MysticMuse138]

Para controlar o acionamento da guilhotina da impressora térmica Tanca TP-620 em Harbour, você pode utilizar o comando específico para essa finalidade, que geralmente é uma sequência de escape especial enviada para a impressora. Você precisará identificar o código de escape correto para acionar a guilhotina após a conclusão da impressão completa. Recomendo consultar a documentação da impressora ou entrar em contato com os especialistas em vários portais, como o fortune tiger 7 games, para obter informações exatas.

[porter]

Olá
Nessa rotina, são impressas seis linhas de ** teste de impressão **, mas essa rotina, está cortando o papel, antes de terminar a impressão,
o que poderia ser feito, para contornar esse problema, não entendo porquê não corta o papel após o termino da impressão, a impressora está
configurada para não cortar o papel, mas está cortando com a rotina abaixo, mas antes de terminar a impressão.

Código: Selecionar todos

   @ contl,00 SAY "**** TESTE DE IMPRESSAO **** 1"
   contl++
   @ contl,00 SAY "**** TESTE DE IMPRESSAO **** 2"
   contl++

   @ contl,00 SAY "**** TESTE DE IMPRESSAO **** 3"
   contl++
   @ contl,00 SAY "**** TESTE DE IMPRESSAO **** 4"
   contl++
   
   @ contl,00 SAY "**** TESTE DE IMPRESSAO **** 5"
   contl++
   @ contl,00 SAY "**** TESTE DE IMPRESSAO **** 6"
   contl++

   SET DEVICE TO SCREEN
   SET PRINTER TO
   SET PRINTER OFF
   
   W32PRN(Arq,ImpSelecionada,"COMPRIMIDO")       // Impressora selecionada pelo usuario
   TesteCortarBobina()
   
STATIC PROCEDURE TesteCortarBobina()
   PRIVATE TXTARQ, WLINHA, nTAMANHO
   PRIVATE AAA := [C:\CUPON.PRN]
   PRIVATE ARQTESTE := FCREATE( AAA, 0 )

   INICIO := chr(29) + chr(249) + chr(32) + chr(0) + chr(27) + chr(116) + chr(8)
   CORTA  := CHR(27)+CHR(109) // TANCA TP-650, DEU CERTO CORTE DE PAPEL
   TXT01  := INICIO								
   TXT02  := CORTA
	   
   FCLOSE(ARQTESTE)
   TXTARQ:=FOPEN( AAA, 2 )
				
   A:=1
   DO WHILE A <= 2
      xTXT   := [TXT]+ALLTRIM(STRZERO(A,2))
      WLINHA := &xTXT+CHR(13)+CHR(10)
	  FSEEK ( TXTARQ, 0, 2 )
      FWRITE( TXTARQ, ALLTRIM(WLINHA), LEN(WLINHA))
      A++
   ENDDO
	   
   FCLOSE(TXTARQ)
   cArquivo := AAA
   cImpressora := GetDefaultPrinter()           // Pego a Impressora Padrão
   PrintFileRaw(cImpressora, cArquivo, [Teste]) 
   RETURN NIL