[Resolvido]Corte parcial cupom não fiscal Epson TM20

Caros boa tarde.

Falta bem pouco pra finalizar minha pendência, peço ajuda a quem puder;

Estou imprimindo o cupom não fiscal do meu projeto perfeitamente, porém como o cliente quer 2 vias do cupom, preciso ao concluir a 1ª via efetuar um corte "parcial" no cupom, e ao término da 2ª via o corte total.

O colega Jungli me passou esse comando que além de eu não entender também não funcionou, acho que falta algo:

Print #1, "GS " & Chr(34) & "V" & Chr(34) & "66 0"

No manual de programação da impressora está assim, descrito como o original:

Mechanism Control Commands

GS V m Executes paper cut.
m = 0, "0", 1, "1"

GS V m n Executes paper cut after feeding n dots.
m = "A" or "B"

Não entendi bulhufas kkk

O comando de corte está perfeito, no caso quando termina a 2ª via:

Print #1, Chr(27) + "i

Agora o bendito "corte parcial" tô apanhando.

Abraços

Carniel

Ei chefe, boa tarde!

A sua impressora dá suporte ao meio corte?

Os códigos ESC da EPSON costumam não variar para os modelos, tendo como limitação do hardware...

Encontrei esse exemplo abaixo, veja se te ajuda...

ESC m (Corte parcial de papel .)
Executa o corte de papel e deixa três pontos de união.

exemplo:

PRINT #1 "Hola"; -Imprime texto
PRINT #1 CHR$(&H1B); "d"; CHR$(11); -Avança 11 linhas
PRINT #1 CHR$(&H1B); "m"; -Executa corte parcial

Pablo bom dia;

Obrigado pela ajuda, deu certo com algumas alterações na ordem dos comandos, mas foi resolvido.
Como tive bastante "dificuldade" pra resolver a questão por completo, usando 2 topicos e a ajuda de 3 a 4 colegas, posto abaixo a rotina que deu certo:

1 - Fazer o compartilhamento da impressora no Windows
2 - "Mapear" a impressora via "Prompt de Comando" com o seguinte comando:
net use LPT1: \\nomedopc\nomedocompartilhamento

3 - Codigo VBA

'Aqui abre o mapeamento LPT1
Open "LPT1:" For Output Access Write As #1

'Abaixo o exemplo que o colega Pablo disponibilizou com uma pequena alteração de ordem dos comandos
'Faça as adaptações que forem necessárias ao seu projeto
Print #1, "Hola"; 'Imprime o texto
Print #1, Chr$(&H1B); "d"; Chr$(3); 'Avança; 3; linhas
Print #1, Chr(27) + "m"
Print #1, Chr$(&H1B); "d"; Chr$(3); 'Avança; 3; linhas
Print #1, Chr(27) + "i"
Close #1

Obrigado, problema resolvido !

Carniel