MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]IMPRESSORA NÃO FISCAL

    avatar
    fabenelli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 16/09/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty IMPRESSORA NÃO FISCAL

    Mensagem  fabenelli 9/11/2010, 03:29

    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.
    avatar
    Convidad
    Convidado


    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  Convidad 9/11/2010, 09:39

    Veja o que diz o Luiz Claudio;

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

    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  Jungli 9/11/2010, 10:43

    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
    avatar
    fabenelli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 16/09/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  fabenelli 10/11/2010, 00:53

    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.
    avatar
    fabenelli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 16/09/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  fabenelli 19/11/2010, 00:48

    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
    avatar
    fabenelli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 16/09/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  fabenelli 19/11/2010, 02:33

    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
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  Jungli 20/11/2010, 11:37

    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

    avatar
    fabenelli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 16/09/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  fabenelli 1/12/2010, 02:51

    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.
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  Jungli 1/12/2010, 14:02

    Dê uma olhada ...

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 16/09/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  fabenelli 2/12/2010, 01:57

    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
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  Jungli 2/12/2010, 10:15

    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....
    avatar
    fabenelli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 16/09/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  fabenelli 2/12/2010, 20:31

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

    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  Jungli 2/12/2010, 20:39

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

    Conteúdo patrocinado


    [Resolvido]IMPRESSORA NÃO FISCAL Empty Re: [Resolvido]IMPRESSORA NÃO FISCAL

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:36