Página 1 de 1
Dúvida, guilhotina impressora Tanca
Enviado: 26 Jan 2024 02:52
por 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.
Dúvida, guilhotina impressora Tanca
Enviado: 26 Jan 2024 08:02
por 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.
Dúvida, guilhotina impressora Tanca
Enviado: 28 Jan 2024 10:43
por 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.
Dúvida, guilhotina impressora Tanca
Enviado: 06 Fev 2024 08:33
por 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
Dúvida, guilhotina impressora Tanca
Enviado: 06 Fev 2024 15:16
por ANDRIL
Olá!
Já tentou CHR(27)+CHR(105) ou CHR(27)+CHR(109)
Até+
Dúvida, guilhotina impressora Tanca
Enviado: 09 Fev 2024 13:37
por 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.
Dúvida, guilhotina impressora Tanca
Enviado: 09 Fev 2024 21:44
por Itamar M. Lins Jr.
Olá!
Andril já respondeu.
Tá configurado para A4. Precisa ter opção de bobina.
Saudações,
Itamar M. Lins Jr.
Dúvida, guilhotina impressora Tanca
Enviado: 10 Fev 2024 10:12
por 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.
Dúvida, guilhotina impressora Tanca
Enviado: 22 Mar 2024 13:59
por 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
Dúvida, guilhotina impressora Tanca
Enviado: 27 Mar 2024 15:45
por 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.
Dúvida, guilhotina impressora Tanca
Enviado: 30 Abr 2024 13:17
por 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