[Resolvido]Ajuste altura cupom fiscal não fiscal Epson TM-T20

Prezados boa tarde.

Estou desenvolvendo um pedido de pecas automotivas para ser impresso na Epson térmica modelo acima, e estou com dificuldade ao término do pedido que pula um espaço bem grande após a finalização de impressão dos dados do pedido, estou usando o modelo papel "rolo" de 80mm x 290mm e acredito que o problema é essa altura 290mm, sei que já tiveram várias dúvidas iguais a essa bem como o resolvido, porém não encontrei um exemplo pra me orientar, gostaria que ao término da impressão do pedido a impressora desse um pequeno salto e picotasse a linha, alguma ajuda ?

Bom dia,

Está escrevendo o cupom manualmente.
pode tentar:

Print #1, Chr(27) + Chr(109), Len(Chr(27) + Chr(109));

ou

'Print #1, Chr(27) + "i"

para o corte

Boa noite, o objetivo é escrever manualmente, mas vou precisar sim incluir a instrução pra cortar o cupom.
A princípio estou testando se a impressora recebe o texto manualmente, hj fiz um mas não saiu nada, se puder me ajudar, vou relatando as dúvidas, obrigado por hora

Bom dia,

você pode colocar o código que utilizou para o teste.

qual a porta a impressora está utilizando?
teve algum problema na instalação da impressora?

no aguardo.

Bom dia.

Estou usando o código de exemplo do Avelino Sampaio (do site usando o access) segue:

Private Sub Comando0_Click()

Open "\\joao-pc\EPSONTMT20" For Output As #1
Print #1, "Impressão de teste - 10/10/22"
Close #1

End Sub

A impressora está devidamente compartilhada no cliente, mas quando executo esse código acima nada acontece.
Fui do "prompt de comando" no pc do cliente (Windows 7) e usei o "net use".

net use \\joao-pc\EPSONTMT20

o retorno foi "comando concluído com exito"

gerei um txt com o comando

dir *.* > teste.txt

e executei:

print teste.txt

nada acontece...

Pedi uma página de teste lá no painel de impressoras do Windows

E saiu...

é isso amigo

A impressora está definida como padrão?

Sim está como padrão, tanto que emito uma página de teste pelo Windows normalmente (sai as informações da impressora), o bicho está dando quando mando ou "direto" conforme algumas dicas dos colegas e já postado acima, ou até via "prompt de comando" como também comentei acima.

Me parece que está faltando algum parâmetro extra, checando o que foi feito:

modelo da printer: EPSON TM-T20
compartilhamento: \\nomedopc\nomedocompartilhamento ex: "\\joao-pc\EPSONTMT20"
permissões: liberado pra todos / adms / users etc...

Estou desenvolvendo o cupom, a partir de uma ideia do colega "Piloto" daqui, e gerando um TXT pra ir vendo os campos, até ai beleza, mas na fase de jogar pra impressora é que tah engasgando (rs...).

Não consigo aprofundar muito nos testes pois estou remoto com o cliente, então faço os ajustes no BD e lá no cliente tento imprimir, ele acompanhando, até agora infelizmente sem sucesso.

é isso amigo

Boa tarde,

Tente assim:

'Abrindo o arquivo e a impressora
Open CurrentProject.Path & "\teste.prn" For Output As #1
DoEvents
'// Inicializa a impressora
Print #1, "ESC " & Chr(34) & "@" & Chr(34)
'// --- Imprime a data e hora --->>>
'// Imprimir e alimentar papel: No caso TM-T20, quantidade de alimentação = 0,250 mm (4/406 polegadas)
Print #1, "ESC " & Chr(34) & "J" & Chr(34) & " 4"
Print #1, Now()
'// Imprimir e alimentar n linhas: Alimenta o papel duas linhas
Print #1, "ESC " & Chr(34) & "d" & Chr(34) & " 2"

Print #1, "Linha 1" & " LF"
Print #1, "Linha 2" & " LF"

'// Selecione o modo de corte e corte o papel: [Função B] Alimentar papel para (posição de corte
'// + 0 mm) e executa um corte parcial (um ponto sem corte).
Print #1, "GS " & Chr(34) & "V" & Chr(34) & "66 0"
Close
'// Envia para a impressora na rede.
FileCopy CurrentProject.Path & "\teste.prn", "\\joao-pc\EPSONTMT20"

abs

Bom dia

Agradeço a ajuda.

Ao executar essa linha do código sugerido:

'// Envia para a impressora na rede.
FileCopy CurrentProject.Path & "\teste.prn", "\\joao-pc\EPSONTMT20"

Gera esse erro:

Erro em tempo de execução '5':
Argumento ou chamada de procedimento inválida

O arquivo .prn gerado está com esse conteudo:

ESC "@"
ESC "J" 4
18/10/2022 11:58:25
ESC "d" 2
Linha 1 LF
Linha 2 LF
GS "V"66 0

é isso mesmo ?

Abs.

Carniel

Olá Jose Carlos,

Há um tempo atrás, eu criei um modelo de cupom não fiscal para um membro aqui do fórum. Ficou assim:


O sistema grava o cupom na tabela de vendas.


Veja se vc consegue aproveitar essa ideia.
Crie um relatório com o campo do cupom de vendas e tenta imprimir na tua impressora.

Segue modelo.

Espero ter ajudado

Att,

Alexandre Fim

Ok Alexandre, vou estudar sua ajuda, obrigado por hora

Abs.

Boa tarde Jose Carlos,

sim!

o comando FileCopy envia o arquivo.prn direto para a impressora compartilhada.



para teste você pode usar também o notepad e o comando shell

Shell "notepad.exe /p " & CurrentProject.Path & "\teste.prn", vbHide

só terá que configurar a página no notepad

margens: ambas para 0 (zero)
retirar o cabeçalho  e o rodapé
fonte: consolas tamanho 9

Obs: neste caso você monta o cupom normalmente.

Open CurrentProject.Path & "\teste.prn" For Output As #1
Print #1, "Impressão de teste - 10/10/22"
Print #1, Chr(27) + "i" ' ou Print #1, "GS " & Chr(34) & "V" & Chr(34) & "66 0"
Close #1


abs.

Ok Jungli, terminei o cupon na integra, amanhã vou ao cliente testar "in loco" reporto o resultado aqui, obrigado

Prezados, agradeço muito a ajuda dos colegas do forum, resolvi minha duvida a partir de um outro "resolvido" do participante do forum "HARISOHN", conforme peço licença para replicar o link abaixo:

https://www.maximoaccess.com/t9097-resolvidopdv-impressao-do-cupom#73377

Fazendo as adaptações que precisava deu tudo certo, até a próxima...

Carniel