QUEBRAR LINHA EM IMPRESSORA FISCAL BEMATECH
SAUDAÇÕES...Preciso imprimir no Cupom FISCAL de uma Bematech os dados referentes do comprador como nome e cpf.
A única forma que encontrei foi colocar na mensagem do fechamento do cupom.
Porem o que gostaria que ficasse assim:
---------------------
Nome: VBMania
CPF: 1111111111
Obrigado Volte Sempre
---------------------
Ficou Assim:
---------------------
Nome: VBManiaCPF:1111
1111111Obrigado Volte
Sempre
---------------------
Alguem sabe um comando dentro da dll da bematech que pula uma linha no cupom fiscal?
Um exemplo do meu código:
Retorno = Bematech_FI_IniciaFechamentoCupom (a,b,c)
Retorno = Bematech_FI_EfetuaFormaPagamento(a,b)
Retorno = Bematech_FI_TerminaFechamentoCupom("Nome:" & _
rst!Nome & "CPF:" & rst!CPF & mensagem)
Se esse comando existir poderia coloca-lo entre o Nome e o CPF.
Desde já Grato!
A única forma que encontrei foi colocar na mensagem do fechamento do cupom.
Porem o que gostaria que ficasse assim:
---------------------
Nome: VBMania
CPF: 1111111111
Obrigado Volte Sempre
---------------------
Ficou Assim:
---------------------
Nome: VBManiaCPF:1111
1111111Obrigado Volte
Sempre
---------------------
Alguem sabe um comando dentro da dll da bematech que pula uma linha no cupom fiscal?
Um exemplo do meu código:
Retorno = Bematech_FI_IniciaFechamentoCupom (a,b,c)
Retorno = Bematech_FI_EfetuaFormaPagamento(a,b)
Retorno = Bematech_FI_TerminaFechamentoCupom("Nome:" & _
rst!Nome & "CPF:" & rst!CPF & mensagem)
Se esse comando existir poderia coloca-lo entre o Nome e o CPF.
Desde já Grato!
vc precisa encher de espaços... se eu não me engano 40 caracteres por linha.
Olá...
Eu tenho uma Bematech e utilizo desta forma para poder imprimir os textos um abaixo do outro.
sTxt = sTxt & String(48, "+") & Chr(13) & Chr(10)
sTxt = sTxt & Left(strRazao, 48) & Chr(13) & Chr(10)
sTxt = sTxt & Left(strEndereco, 48) & Chr(13) & Chr(10)
Sendo pode virificar o que significa o chr(13) e chr(10) no site
www.asciitable.com
Ou ainda, pegar exemplos no próprio site da Bematech
Espero que seja útil.
Atenciosamente
Eu tenho uma Bematech e utilizo desta forma para poder imprimir os textos um abaixo do outro.
sTxt = sTxt & String(48, "+") & Chr(13) & Chr(10)
sTxt = sTxt & Left(strRazao, 48) & Chr(13) & Chr(10)
sTxt = sTxt & Left(strEndereco, 48) & Chr(13) & Chr(10)
Sendo pode virificar o que significa o chr(13) e chr(10) no site
www.asciitable.com
Ou ainda, pegar exemplos no próprio site da Bematech
Espero que seja útil.
Atenciosamente
DIGOS, tente assim:
Retorno = Bematech_FI_TerminaFechamentoCupom("Nome:" & _
rst!Nome & vbcrlf & "CPF:" & rst!CPF & vbcrlf & mensagem)
Espero ter ajudado.
Retorno = Bematech_FI_TerminaFechamentoCupom("Nome:" & _
rst!Nome & vbcrlf & "CPF:" & rst!CPF & vbcrlf & mensagem)
Espero ter ajudado.
Tópico encerrado , respostas não são mais permitidas