referente a Bematech MP-20 FI ll

Boa tarde!!!
Estou precisando imprimir um comprovante em uma impressora "não fiscal" (Bematech MP-20 FI ll).. e, não estou conseguindo..
Pra'começar, não consegui nem instalar a impressora no meu computador..
Meu windowns é o seven..
Toda ajuda será "bem vinda"...
Obrigada

gracy mary

Boa Tarde

Já verificou se as opções de compatibilidade com o seven estão correctas? A porta Com1 reconhece a impressora?

Não instalei no seven.. preferi colocar no XP..
Utilizei um conversor USB/Serial (já que a impressora não tem o cabo serial)
Instalei uma impressora genérica.. porta LPT1..
A impressora acende a luz.. mas.. não consigo acessá-la.. de vez em quando ela
emite uma menssagem...
????MODO?TREINAMENTO
Não faço idéia do que está acontecendo..
agradeço a quem puder ajudar..
gracy mary

Boa Tarde

Porque não procura um forum hardware? A sua questão parece-me ser mais pertinente para esse tipo de forum.

Em http://www.svcsoftwarehouse.com tem um forum hardware. Quem sabe se lhe podem dar a resposta certa lá?

Ola eu estou com uma dúvida parecida os amigos aqui do forum me passaram umas dicas estou trabalhando nelas neste momento mas ainda não tenho nehuma conclusão, de qualquer forma segue o link ai para você dar uma olhada.

http://maximoaccess.forumeiros.com/relatorios-f12/impressora-nao-fiscal-t1106.htm

Abraço e boa sorte

O código do link que BENELLE postou é utilizado em um cliente com essa mesma marca de impressora (não fiscal) e funciona muito bem!

O seu problema deve estar mesmo no cabo de comunicação... essa impressora tem duas portas 1 paralela e 1 usb ... quando estava fazendo esse código vi que para porta usb era melhor utilizar as dlls... mas como o cliente tinha pressa, optei por usar a porta paralela mesmo LPT1... comprei um cabo paralelo e ela funcionou direitinho...

NO SEU CASO A IMPRESSORA É FISCAL...
E TODOS OS COMANDOS DEVEM SER ENVIADOS PARA MESMA ATRAVÉS DE DLLs QUE ACOMPANHAM A MESMA.

Visite o site do fabricante lá tem maiores informações!

baixar arquivos bemathec

Bom dia!

A muito tempo fiz uma rotina de ECF, no access 2.0 ainda... e tenho a adicionar o seguinte...

Se a impressora esta emitindo sinal de modo treinamento como você esta falando é porque se trata de uma impressora fiscal e não uma não fiscal como você esta mencionando, a partir do momento em que a impressora for lacrada para a emissão em produção ela não mais emitira essa mensagem, mas a cada intervalo de tempo ela gerara uma outra... A conexão da impressora com o cabo é USB ou serial? Se for serial deve-se utilizar uma porta COM, essas impressoras não são instaladas como as comuns, elas não aparecem junto as outras o colega postou um exemplo de como acionar a impressora direto pela porta LPT (vide abaixo), tente alterar onde esta para LPT para COM1, COM2... Geralmente a utilizada é a COM2... Provávelmente não imprimira pois até onde utilizei precisama enviar parametros através de uma string para a impressora, que dai ela executava os comandos, o ECF não deve ser visualizado como um acessório do computador ele é um equipamento que esta se comunicando com o computador, ele se auto gerencia podendo ser o primeiro alvo em caso de fiscalização...

Dê uma olhada também neste link: http://www.bematech.com.br/suporte/downloads/manuais/manual_comdireta.zip

Verifique realmente se sua impressora é não fiscal, pois não deveria apresentar essa mensagem...

Exemplo postado pelo colega, altere o LPT pela porta COM1, COM2...

ESTE CÓDIGO ENVIA DIRETO PRA LPT1 SEM DLL NENHUMA
ESTUDE-O E ADAPTE...

Dim nPed, DtVenda, Fpag, Reg1
nPed = Forms![vendas 2]!N__Pedido
DtVenda = Forms![vendas 2]!Data_da_Venda
Fpag = Forms![vendas 2]!FPagamento
Reg1 = Forms![vendas 2]!Código_da_Venda
'cupon para impressora termica de 40 colunas
Open "LPT1:" For Output Access Write As #1

Print #1, Tab(0); "TESTE DE EMPRESA";
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(10); "Codigo do Pedido : " & Me.N__Pedido;
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(0); "Data :" & Me.Data_da_Venda; " " & " "; "Hora :" & Time;
Print #1, Tab(0); "F. Pagamento: " & Me.FPagamento
Print #1, Tab(0); "------------------------------------------------";


'cabeça do cupon do items
Print #1, Tab(0); "Cod. "; " Item";
Print #1, Tab(0); "Qtd. "; "VL Uni."; " VL Total "
Print #1, Tab(0); "------------------------------------------------";


'selecionar items do cupon
Dim csql As String
Set bc = CurrentDb
'csql = "SELECT * FROM Vendas Efetuadas WHERE Código_da_Venda=" & Chr(34) & Me.Código_da_Venda & Chr(34)
Set tbVendido = bc.OpenRecordset("SELECT [Cadastro de Mercadorias].Mercadoria, [Cadastro de Mercadorias].Medida, [Vendas Efetuadas].[Código da Venda], [Vendas Efetuadas].[Código da Mercadoria], [Vendas Efetuadas].Quantidade, [Vendas Efetuadas].Preço FROM [Vendas Efetuadas] INNER JOIN [Cadastro de Mercadorias] ON [Vendas Efetuadas].[Código da Mercadoria] = [Cadastro de Mercadorias].[Código da Mercadoria] WHERE ((([Vendas Efetuadas].[Código da Venda])=" & Me.Código_da_Venda & "))", dbOpenDynaset)

Do While Not tbVendido.EOF
Print #1, Tab(0); Format(tbVendido("Código da Mercadoria"), "0000000000000"); " " & Format(Left(tbVendido("Mercadoria"), 20), "@@@@@@@@@@@@@@@@@@@@");
Print #1, Tab(0); Format(tbVendido("quantidade"), "000"); " "; Format$(Format$(tbVendido("PREçO"), "#,##0.00"), "@@@@@@@@"); " "; Format$(Format$(tbVendido("preço") * tbVendido("quantidade"), "#,##0.00"), "@@@@@@@@")

tbVendido.MoveNext
Loop
tbVendido.Close
'valor total do cupon
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(30); "Total R$: "; Format$(Format$(Me.Texto136, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); "------------------------------------------------";

'mensagem de no rodape do cupom
Print #1, Tab(10); " Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(10); " "
Print #1, Tab(10); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(0); "Scef 3.2.1" + " "; "- Glicerio.junior@hotmail.com"
Print #1, Tab(0); "------------------------------------------------";

'comando de corte
'Print #1, Chr(27) + "i"
Close #1

Agradeço as "dicas"... mas..
vou orientar meu cliente para comprar um outro tipo de impressora (sem ele querer aproveitar essa bematech, que pelo jeito.. já foi fiscal), até porque.. nunca lidei com esse tipo de impressora.. claro que, ele irá querer comprar uma "impressora usada".. e com certeza, que ela seja "pequena"..
Hoje, ele utiliza uma LX-300.. por qual poderia ser substituída? (que seja pequena)
Desde já, agradeço a atenção de vocës..
gracy mary

Essa é o tipo de pergunta que deve colocar num forum de hardware. Certamente irão ajuda-la correctamente.

MP-4000 da bematech é muito boa...
mp 4000

obrigada.. era exatamente a informação que precisava..
gracy mary

Fico Feliz em ajudar!