COMO IMPRIMIR CUPOM NÃO FISCAL NA BEMATECH 4200 TH

ELTONLIMARIBEIR 02/08/2014 10:28:47
#440127
Olá.

Preciso criar um cupom na Bematch 4200 th mas não tenho ideia de trabalhar com essa impressora, visto que é a primeira vez que tenho essa necessidade.

Já tenho a impressora e o sistema pronto, falta apenas criar as funções de impressão do cupom.

Lembro que NÃO é cupom fiscal.
LEANDROSANTOS 02/08/2014 12:47:22
#440129
Oi Elton segue alguns links de exemplos direto do site da Bematech

Exemplo C# .NET: http://partners.bematech.com.br/suporte-recursos/downloads/?did=159

Exemplo VB6: http://partners.bematech.com.br/suporte-recursos/downloads/?did=137


Espero que eles lhes ajudem no que esta precisando.
WILSONJOSE 02/08/2014 14:22:20
#440131
Elton, tenho um exemplo em VB6, não sei se te ajuda

Dim linha As String

linha = linha & Chr(10) & vbCrLf
linha = linha & [Ô]RECIBO NRO - [Ô] & Format(TxtRecibo.Text, [Ô]000[Ô]) & vbCrLf
linha = linha & Chr(10) & vbCrLf
linha = linha & [Ô]Favorecido: [Ô] & LblNome.Caption & vbCrLf
linha = linha & [Ô]Endereço : [Ô] & cEnd & vbCrLf
linha = linha & Chr(10) & vbCrLf

linha = linha & [Ô] TOTAL A PAGAR R$ - [Ô] & FormatNumber(LblValorPago.Caption, 2) & vbCrLf

linha = linha & Chr(10) & vbCrLf
linha = linha & Chr(10) & vbCrLf

linha = linha & [Ô]________________________________________________[Ô] & vbCrLf
linha = linha & [Ô]Ass.:[Ô] & vbCrLf

EnviarDadosImpressora [Ô]
ome da impressora[Ô], [Ô]Impressao de Cupom[Ô], linha

Public Function EnviarDadosImpressora(NomeImpressora As String, NomeDocumento As String, Dados As String) As Boolean

Dim llngHndPrinter As Long
Dim llngHndDoc As Long
Dim llngRetorno As Long
Dim llngBytesGravados As Long
Dim ludtDocInfo As DOCINFO

llngRetorno = OpenPrinter([Ô]BEMATECH 4200 TH[Ô], llngHndPrinter, 0)

If llngRetorno = 0 Then
MsgBox [Ô]Impressora não localizada![Ô]
Exit Function
End If

ludtDocInfo.pDocName = NomeDocumento
ludtDocInfo.pOutputFile = vbNullString
ludtDocInfo.pDatatype = vbNullString

llngHndDoc = StartDocPrinter(llngHndPrinter, 1, ludtDocInfo)

llngRetorno = StartPagePrinter(llngHndPrinter)
llngRetorno = WritePrinter(llngHndPrinter, ByVal Dados, Len(Dados), llngBytesGravados)
llngRetorno = EndPagePrinter(llngHndPrinter)

llngRetorno = EndDocPrinter(llngHndPrinter)
llngRetorno = ClosePrinter(llngHndPrinter)

If llngBytesGravados = Len(Dados) Then
EnviarDadosImpressora = True
Else
EnviarDadosImpressora = False
End If
End Function
Faça seu login para responder
Voltar