IMPRIMIR EM IMPRESSORA NAO-FISCAL

WEBIER 07/07/2010 16:29:05
#346791
desenvolvi uma pdv para um mini-supermercado...

...coisa simples, nada para fins fiscais nao... somente para controle interno de vendas mesmo

a dona do mini-supermercado chegou com uma impressora NÃO-FISCAL... aquelas que é só pra imprimir cupom de venda.

alguem já trabalhou com essa impressora?
o procedimento de enviar para imprimir é o mesmo que uma matricial comum ?
Tenho que baixar algo no site do fabricante?

Impressora: Bematech MP-4000 TH
MADMAX 07/07/2010 17:11:50
#346795
WEBIER da uma entrada no site da Bematech tem bastante documentação para ela.
JANDER 07/07/2010 17:33:09
#346797
é a mesma coisa que a matricial

printer.print [Ô]aaaaaaaaaaaaa[Ô]
INFOSISTEMAS 07/07/2010 20:11:36
#346811 Resposta escolhida
usa assim :

[ô]cupon para impressora termica de 40 colunas
Open [Ô]LPT1:[Ô] For Output Access Write As #1

Print #1, Tab(0); enome;
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 : [Ô] & vendacod;
Print #1, Tab(0); [Ô]------------------------------------------------[Ô];
Print #1, Tab(0); [Ô]Data :[Ô] & Date; [Ô] [Ô] & [Ô] [Ô]; [Ô]Hora :[Ô] & Time; [Ô] Vend: [Ô] & codvendedor
Print #1, Tab(0); [Ô]------------------------------------------------[Ô];


[ô]cabeça do cupon do items
Print #1, Tab(0); [Ô]Cod. [Ô]; [Ô]Item [Ô]; [Ô]Qtd. [Ô]; [Ô]VL Uni. [Ô]; [Ô]VL Total[Ô]
Print #1, Tab(0); [Ô]------------------------------------------------[Ô];


[ô]selecionar items do cupon
Dim csql As String
csql = [Ô]SELECT * FROM tempven WHERE codven=[Ô] & Chr(34) & vendacod & Chr(34)
Set dyntempven = dbtempven.OpenRecordset(csql, dbOpenDynaset)

Do While Not dyntempven.EOF
Print #1, Tab(0); Format(dyntempven([Ô]codpro[Ô]), [Ô]00000[Ô]); [Ô] [Ô]; Format(Left(dyntempven([Ô]desc[Ô]), 20), [Ô]@@@@@@@@@@@@@@@@@@@@[Ô]); [Ô] [Ô]; Format(dyntempven([Ô]quant[Ô]), [Ô]000[Ô]); [Ô] [Ô]; Format$(Format$(dyntempven([Ô]valuni[Ô]), [Ô]#,##0.00[Ô]), [Ô]@@@@@@@@[Ô]); [Ô] [Ô]; Format$(Format$(dyntempven([Ô]valuni[Ô]) * dyntempven([Ô]quant[Ô]), [Ô]#,##0.00[Ô]), [Ô]@@@@@@@@[Ô])
dyntempven.MoveNext
Loop

[ô]valor total do cupon
Print #1, Tab(0); [Ô]------------------------------------------------[Ô];
Print #1, Tab(30); [Ô]Total R$: [Ô]; Format$(Format$(valtol, [Ô]#,##0.00[Ô]), [Ô]@@@@@@@@[Ô])
Print #1, Tab(0); [Ô]------------------------------------------------[Ô];

[ô]mensagem de no rodape do cupon
Print #1, Tab(10); [Ô] Este Cupon Não Tem Valor Fiscal[Ô]
Print #1, Tab(0); [Ô]------------------------------------------------[Ô];
Print #1, Tab(0); nomesis + [Ô] [Ô]; versis + Info
Print #1, Tab(0); [Ô]------------------------------------------------[Ô];

[ô]comando de corte
Print #1, Chr(27) + [Ô]i[Ô]

Close #1
LIZANDER 07/07/2010 21:04:38
#346814
Não recomendo usar o Print...

Existe uma DLL da própria Bematech para utilização com suas impressoras não fiscais.

Essa DLL tem funções para verificação se a miniimpressora está online, se tem papel, etc...

No próprio site da Bematech tem como baixar manual e DLL... SImples. Tem um arquivo hlp que tem todas as sintaxes de todas as funções da dll...
WEBIER 08/07/2010 11:51:42
#346843
sou leigo nesse assunto!

por uma visão por cima, como faria para usar essa DLL ?
EMANUEL 08/07/2010 12:47:44
#346852
Webier

no site da bematech tem os codigos com exemplos em VB,VB.NET,DELPHI ,ETC.. ETC.... ja prontinhos....

é so baixar , testar, analisar e adaptar a sua necessidade

Espero ter ajudado.
Emanuel
INFOSISTEMAS 08/07/2010 19:01:14
#346909
amigo essa rotina ai que postei para vc esta funcioando perfeitamente adapte ao seu codigo e pronto !!
Tópico encerrado , respostas não são mais permitidas
Voltar