CUPOM NAO FISCAL, IMPRESSORA TERMICA BEMATECH

MOREIRA 23/10/2009 10:42:48
#326146
ola, bom dia a todos, terminei um projeto, agora preciso criar um cupom nao fiscal usando o objeto print.
vou usar um impressora nao fical terminca BEMATECH na porta lpt1.. fiz um tes usando um exemplo achado ak no site. mas nao funcionou...

por favor... preciso dessa ajuda...

esse é o codigo q estou usando no evento KeyPress

Private Sub TxtCodigo_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Select Case KeyCode
Case vbKeyF1
[ô]If Status_Venda = True Then
[ô]MsgBox ([Ô]Por Favor, Conclua a Venda, para Posterior Iniciar uma Nova Venda [Ô]), vbCritical, [Ô]ATENÇÃO[Ô]

[ô]Exit Sub
[ô]End If
Unload Me

Case vbKeyF3

If Status_Venda = False Then [ô] Exit Sub
[ô]Novo Cupom
Call Gera_Cupom
[ô]---------------
LblDescricao.Caption = [Ô]Caixa Livre[Ô]
LblAviso_Venda.Caption = Date
Status_Venda = True
Exit Sub
End If


Case vbKeyF4
TxtQuant.Visible = True
TxtQuant.SetFocus
TxtQuant.BackColor = vbYellow

Case vbKeyF5
If Status_Venda = False Then
MsgBox ([Ô]Por Favor, Libere o Caixa para venda [ F3 ] [Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
Exit Sub
End If

Frm_Produtos_Peso.Show
LblDescricao.Caption = [Ô]Produtos da Balança[Ô]


Case vbKeyF6
If Status_Venda = False Then
MsgBox ([Ô]Por Favor, Libere o Caixa para venda [ F3 ] [Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
Exit Sub
End If

If LblNum_Cupom.Caption = [Ô]0[Ô] Then
MsgBox ([Ô]Por Favor, Inicie a Venda, Usando a Tecla F3 [Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
TxtCodigo.SetFocus
Exit Sub
End If

Frm_Produtos_Diversos.Show
LblDescricao.Caption = [Ô]Produtos Diversos[Ô]

Case vbKeyF7
[ô]Cancela Item da Venda
If LblTotalVenda.Caption = [Ô]0,00[Ô] Then
MsgBox ([Ô]Não há Itens na venda para ser Cancelado [Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
[ô]Unload Me
Else
Frm_Cancela_Item_PDV.Show
End If

Case vbKeyF8
If LblTotalVenda.Caption = [Ô]0,00[Ô] Then
MsgBox ([Ô]Não há registros na venda[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
TxtCodigo.SetFocus
Exit Sub
End If

[ô]-----------------------------------
Frm_Fecha_Venda.Show
Frm_Fecha_Venda.LblValor_Compra.Caption = Format(ValorCompra, [Ô]###,##0.00[Ô])
Frm_Fecha_Venda.LblTotal_Venda.Caption = Format(ValorCompra, [Ô]###,##0.00[Ô])

Frm_Fecha_Venda.LblStatus.Caption = [Ô]Finalizando Operação[Ô]
[ô]-----------------------------------

Case vbKeyF9
[ô]Chamo o formulario consulta preço
Frm_Consulta_Preco.Show

Case vbKeyF10
[ô]zero o grid
[ô]Grid_Venda.Rows = 1
APaga_Venda
[ô]zero a contagem de itens
LblDescricao.Caption = [Ô]Venda Cancelada[Ô]
LblVlr_Unitario.Caption = [Ô]0,00[Ô]
LblQuant.Caption = [Ô]1,000[Ô]
LblVlrTotal.Caption = [Ô]0,00[Ô]
LblTotalVenda.Caption = [Ô]0,00[Ô]
LblAviso_Venda.Caption = [Ô]Venda Cancelada!![Ô]
ContaItens = 0

Case vbKeyF11
Frm_Cad_Cliente.Show

Case vbKeyF12
Frm_Cad_Produtos.Show
End Select
End Sub
MOREIRA 23/10/2009 13:58:32
#326167
por favor, alguem....
TECLA 23/10/2009 14:15:15
#326170 Resposta escolhida
Qual é o MODELO da impressora BEMATECH?
Você está usando a DLL para efetuar a impressão?
MOREIRA 23/10/2009 14:33:06
#326175
O modelo é MP-2100 TH
nao uso nem uma DLL, procurei no site e nao achei nada...
TECLA 23/10/2009 14:35:41
#326176
O que precisa deve estar no link abaixo:
http://www.bematech.com.br/suporte/dwn_fisc_windows.asp
Tópico encerrado , respostas não são mais permitidas
Voltar