CUPOM NAO FISCAL - BEMATECH USANDO DATAREPORT
Olá pessoal.
Gostaria de saber como posso imprimir um Cupom Não fiscal o qual já está funcionando, porém. Imprime direto na impressora usando o próprio código baixado do site da Bematech.
O código atual utilizado para imprimir o cupom segue abaixo:
Onde:
Header() - - > Está toda formatação do cupom em si
Porém seria possÃvel visualizá-lo antes de mandar imprimir pelo DATARPORT.
Até mais,
Guardião!
Gostaria de saber como posso imprimir um Cupom Não fiscal o qual já está funcionando, porém. Imprime direto na impressora usando o próprio código baixado do site da Bematech.
O código atual utilizado para imprimir o cupom segue abaixo:
If sDados <> "" Then
'iModo = 1 'CONDENSADO
iModo = 2 'NORMAL COM FORMATAÇÃO
For iContador = 1 To CInt(sDados)
sBuffer = sBuffer & Header()
iretorno = FormataTX(sBuffer, iModo, iItalico, iSublinhado, iExpandido, iNegrito)
If iretorno = 0 Then
MsgBox "Problemas na impressão do texto formatado." + Chr(10) + "PossÃveis causas: Impressora desligada, off-line ou sem papel", vbInformation + vbOKOnly
End If
Next
End IfOnde:
Header() - - > Está toda formatação do cupom em si
Porém seria possÃvel visualizá-lo antes de mandar imprimir pelo DATARPORT.
Até mais,
Guardião!
Use um textbox.
E ao invez de jogar para a impressora, jogue os itens para o textbox e veja como vai sair.
Se vc pegar os exemplos da Bematech, verá que eles fazem isso tb.
Colocaram o texto box como sse fosse na largura do cupom e sai exatamente igual.
boa sorte.
E ao invez de jogar para a impressora, jogue os itens para o textbox e veja como vai sair.
Se vc pegar os exemplos da Bematech, verá que eles fazem isso tb.
Colocaram o texto box como sse fosse na largura do cupom e sai exatamente igual.
boa sorte.
Tópico encerrado , respostas não são mais permitidas