[Resolvido]IMPRESSORA NÃO FISCAL

Olá pessoal!
Venho mais uma vez recorer ao senhores para resolver um problema. Eu já procurei muito mas não achei nada muito claro (fácil intendimento para leigos como eu), estou trabalhando em um sistema de vendas/estoque, em Access, e preciso imprimir meu pedido, emitir um cupom não fiscal, atraves de uma impressora Bematech MP-20 de 40 colunas.

Sei que tenho que enviar o código diretamente para a porta de comunicação LPT1 via códio VBA, registrar o arquivo DLL, mas já pesquisei um bocado e não consigo saber como fazer. Meu conhecimento de programação é um tanto quanto limitado.

Se os senhores puderem me ajudar ficarei muito grato.

Veja o que diz o Luiz Claudio;

http://www.ativoaccess.com.br/mostra.artigo.php?artigo=47

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

Pessoal vou trabalhando no código de posse das dicas passadas, assim que eu tiver algum resultado ou dúvida darei retorno.
Grato pelo rápido atendimento a minha dúvida.

JUNGLI,
Desculpe a demora pelo retorno mas eu estou tendo pouquissimo tempo para terminar o meu sistema o qual irei usar a impressora não fiscal.
Estou fazendo progressos com o código que você me passou está relativamente fácil já configurei muitas coisa para imprimir do meu pedido, claro que ainda está faltando a impressão dos itens do pedido, mas eu acho que chegarei lá.
Porém ainda com relação a impressão eu estou com algumas dificuldades, gostaria de saber se tem como a impressora reconhecer os caractéres especiais (acentos), muitas das minhas informações são cadastradas com acentos e quando mando imprimir esta saindo diferente por exemplo:
- "MACAÉ" quando imprime fica "Macaú" além do acento as letras estão minusculas, só que eu coloquei em todos os campos do acess para que os caratéres sejam exibidos maiusculos mesmo quando digitado minusculo.
- Outra dúvida é com relação ao tamanho da fonte tem como mudar ou a impressora é padrão?

desde já grato

Fabrício

JUNGLI,
Achei que seria mais fácil realizar a impreção dos itens do pedido, mas não estou consegundo.
Você poderia me explicar os passos do código como você está fazendo "selecionar items do cupon". No meu caso eu tenho o formulário "dedidos" com o subformulário "pedido detalhado" onde eu tenho os itens "descrição", "tipo", "QTD", "PREÇO UNITÁRIO" e por fim "preço"="qtd"*"PREÇO UNITÁRIO", mas não estou consegundo fazer a impressão. Já tentei fazer a consulta filtrando pelo numero do pedido e copiando a instrução SQL para o vb mas não deu certo.

Grato,
Fabrício

Amigo Fabrício vou dar uma olhada, mas seria melhor se você me enviasse o seu projeto ou parte dele... eu analiso e te envio novamente.

com relação aos acentos:

use essa função:
Function RemoverAcentos(Str As String) As String
Dim ComAcento As String
Dim SemAcento As String
Dim x As Integer
Dim NovaStr, cAtual As String
ComAcento = "àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ"
SemAcento = "aaeouaoaeioucuAAEOUAOAEIOUCU"

For x = 1 To Len(Str)
cAtual = Mid(Str, x, 1)

If InStr(1, ComAcento, cAtual, vbBinaryCompare) <> 0 Then
cAtual = Mid(SemAcento, InStr(1, ComAcento, cAtual, vbBinaryCompare), 1)
End If

NovaStr = NovaStr + cAtual
Next
RemoverAcentos = NovaStr
End Function

JUNGLI
Desculpe a demora mas estava viajando a trabalho não tinha o BD a mão. Segue o link com o arquivo
http://www.4shared.com/file/mUzRppwT/SISTEMA_LU_E_LU_V102.html

Eu não implementei esta ultima dica sua, na realidade eu não entendi exatamente onde deveria coloca-la no código. Eu ainda sou muito inesperiente no assunto.

Desde já muito obrigado pela ajuda.

Dê uma olhada ...

http://www.esnips.com/doc/7f91a56d-8da9-4392-ad4b-95447f0da7c2/SISTEMA_LU_E_LU_V1.02

JUNGLI
Fiz algumas alterações e ficou 99,9% a única coisa que ainda não está ok são os acentos que não funcionou. Até o negócio das letras maiusculas eu resolvi "format (espressão, ">")"

http://www.4shared.com/file/IPuV9A2O/SISTEMA_LU_E_LU_V200.html

Outra dúvida será que a impressora vai consegur imprimir "N°" o "°" não sai a impressora não reconhece.

Desde já muito grato

Bom dia ... sobre essa rotina que passei...
eu testei e quando manda pra impressora o nome do produto já sai
sem os acentos ... testei aqui e deu certo!
em quanto ao número Nº não sai porque quase todas impressoras não fiscais ou térmicas
não aceitam acentuação e alguns caracteres especiais...
sugestões

No.: 00001
N.: 00001
ou mesmo, Numero: 00001

.... com relação aos acentos... no form.. o ideal seria não cadastrar os produtos com acentuação... eu por exemplo quando faço a entrega de algum dos meus aplicativos, repasso aos clientes informações de como proceder para a aplicação funcionar com mais eficiência... Cadastrar tudo com letras maiúsculas e sem acentos para agilizar buscas
e melhor desempenho em relatórios... etc....

JUNGLI
Seguirei suas dicas, como eu falei tem aluns pequenos acertos a serem feitos na impressão mas o objetivo foi atingido.
Muitissimo obrigado.

É um prazer ajudar...
qualquer coisa estamos aqui...
o fórum agradece o retorno....