MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Impressão cupom não fiscal

    Compartilhe

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 16/02/2011

    Impressão cupom não fiscal

    Mensagem  Naldo em Qui 03 Maio 2012, 13:47

    Bom dia a todos
    Recorro aos amigos do fórum para solicitar mais uma ajuda.
    Estou criando um cupom não fiscal para impressão direto para a porta LPT1 e estou com dificuldades de imprimir os dados da venda.
    Estou usando o seguinte código VBA.

    Private Sub Comando220_Click()
    Dim saida, SaidaData, TipoPg
    saida = Forms![fmrcaixarapido]!SaidaNumero
    saida = Forms![fmrcaixarapido]!SaidaVendedor
    'frmgradecaixarapido = Forms![frmgradecaixarapido]!SaidaValorVenda
    'cupon para impressora termica de 40 colunas

    'LPT1:
    Open "LPT1:" For Output Access Write As #1
    Print #1, Chr(27) & "0"
    Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " NOME DA EMPRESA - SISTEMAS " & Chr$(27) & Chr$(70) & Chr$(20)
    Print #1, Tab(0); Chr(15); "Rua: Senador Pin. Machado, 0000";
    Print #1, Tab(0); "Bairro: Centro - CEP: 19.500-000";
    Print #1, Tab(0); "Cidade: MARTINOPOLIS - SP";
    Print #1, Tab(0); "Tel: (18) - 3275-0000";
    Print #1, Tab(0); " "
    Print #1, Tab(0); "-----------------------------------------------------------";
    Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Num. Saida: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
    Print #1, Tab(0); "-----------------------------------------------------------";
    Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO " & Chr$(27) & Chr$(70) & Chr$(20)
    Print #1, Tab(0); " "
    Print #1, Tab(0); " Cliente - "; Me.SaidaCliente;
    Print #1, Tab(0); " Operador - "; Me.SaidaVendedor;
    Print #1, Tab(0); " Tipo do Pagamento - "; Me.SaidaPg;

    Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
    Print #1, Tab(0); "----------------------------------------------------------";
    Print #1, Tab(0); " "
    'Print #1, Tab(0); "Vlr. Unit. : "; Format$(Format$(saidadetalhe.Me.SaidaValorVenda, "#,##0.00"), "@@@@@@@@");
    'Print #1, Tab(0); "Quant. : "; Format$(Format$([saidadetalhe].Me.SaidaQuantidade, "#,##0.00"), "@@@@@@@@");
    'Print #1, Tab(0); "Valor : "; Format$(Format$([saidadetalhe].Me.SaidaValorVenda, "#,##0.00"), "@@@@@@@@");
    Print #1, Tab(0); " "


    'cabeça do cupon do items
    Print #1, Tab(0); " Quant. Descr.Produto Unit. Desc. SubTotal ";
    Print #1, Tab(0); "---------------------------------------------------------";

    'selecionar items do cupon

    'aqui vai as unstruções do cupom(Detalhes da venda)

    'valor total do cupon
    Print #1, Tab(0); "---------------------------------------------------------";

    'mensagem de no rodape do cupom
    Print #1, Tab(0); " Nao vale como documento fiscal "
    Print #1, Tab(0); " Controle interno"
    Print #1, Tab(0); " "
    'Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Carne NRO : "; Format$(Format$(Me.[id], "00000"), "@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
    Print #1, Tab(0); " "
    Print #1, Tab(5); " VOCE CLIENTE E IMPORTANTE PARA NOS"
    Print #1, Tab(5); " OBRIGADO PELA PREFERENCIA, VOLTE SEMPRE"
    Print #1, Tab(0); "---------------------------------------------------------";
    Print #1, Tab(0); "Teste cupom + " "; " Loja 01"
    Print #1, Tab(0); "---------------------------------------------------------" & Chr(18);
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    'comando de corte
    Print #1, Chr(27) + "i"
    Close #1
    Exit Sub
    End Sub

    Como devo proceder para buscar os campos dos itens do cupom, tenho a seguinte consulta que funciona na impressão com o relatório do Access

    SELECT Saida.SaidaCliente, Saida.SaidaNumero, Saida.SaidaData, tblClientes.Nome, SaidaDetalhe.SaidaQuantidade, Produtos.ProdutoDescricao, Medidas.MedidasDescricao, SaidaDetalhe.SaidaValorVenda, SaidaDetalhe.VlrDesconto, tblClientes.Endereço, tblClientes.Numero, Bairro.BairroDescricao, tblClientes.Telefone, Cidade.CidadeDescricao, Produtos.ProdutoCodigo, [_EMPRESA].NomeEmpresa, [_EMPRESA].Endereço, [_EMPRESA].Fone, [_EMPRESA].Logo, Vendedor.Nome, TipoPg.PgDescricao, SaidaDetalhe.DesPorc, SaidaDetalhe.DescGrade, [_EMPRESA].Endereço, Vendedor.Nome
    FROM _EMPRESA, (Cidade INNER JOIN (Bairro INNER JOIN tblClientes ON Bairro.BairroID = tblClientes.Bairro) ON Cidade.CidadeID = tblClientes.Cidade) INNER JOIN ((Medidas INNER JOIN Produtos ON Medidas.MedidasCodigo = Produtos.ProdutoUnidadedeMedidaNumeto) INNER JOIN ((TipoPg INNER JOIN (Vendedor INNER JOIN Saida ON Vendedor.Codigo_Cliente = Saida.SaidaVendedor) ON TipoPg.TipoPg = Saida.SaidaPg) INNER JOIN SaidaDetalhe ON Saida.SaidaNumero = SaidaDetalhe.SaidaNumero) ON Produtos.ProdutoCodigo = SaidaDetalhe.SaidaProduto) ON tblClientes.Codigo_Cliente = Saida.SaidaCliente;

    Agradeço a atenção de todos.

    Jungli
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Impressão cupom não fiscal

    Mensagem  Jungli em Qui 03 Maio 2012, 14:54

    Exemplo:



    Dim bc As DAO.Database
    Dim tbVendido As DAO.Recordset
    'selecionar items do cupom
    Set bc = CurrentDb

    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

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 16/02/2011

    Re: Impressão cupom não fiscal

    Mensagem  Naldo em Sex 04 Maio 2012, 01:41

    JUNGLI, esta dando uns erros que não consigo detectar, tenho pouco conh. em VBA,
    Sou grato pela sua atenção

    Jungli
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Impressão cupom não fiscal

    Mensagem  Jungli em Sex 04 Maio 2012, 12:34

    Você pode disponibilizar o banco de dados com as tabelas da consulta, e o formulário com o código que está utilizando, ficaria mais fácil de ajudá-lo.


    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 16/02/2011

    Re: Impressão cupom não fiscal

    Mensagem  Naldo em Sex 04 Maio 2012, 13:47

    Ao iniciar o banco abrira o tela do caixa, clique no botão nova venda.
    Selecione um produto na Descrição l após estas etapas clique no botão - F11 Imprimir Pedidos , vai da o erro nesta etapa, ai que o bicho esta pegando, meu conhecimento em VBA é muito pouco.
    Agradeço sua atenção.

    Jungli
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Impressão cupom não fiscal

    Mensagem  Jungli em Sex 04 Maio 2012, 15:09

    Tente assim,


    'selecionar items do cupom
    Dim bc As DAO.Database
    Dim saidadetalhe As DAO.Recordset
    Set bc = CurrentDb
    '------------------------
    Set saidadetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaNumero, " & _
    "Produtos.CodBarra, Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
    "SaidaDetalhe.SaidaQuantidade, SaidaDetalhe.SaidaValorVenda " & _
    "FROM (SaidaDetalhe INNER JOIN Produtos " & _
    "ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
    "INNER JOIN Medidas " & _
    "ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
    "WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)

    Do While Not saidadetalhe.EOF
    Print #1, Tab(0); Format(saidadetalhe![SaidaNumero], "0000000000000"); " " & _
    Format(Left(saidadetalhe![ProdutoDescricao], 20), "@@@@@@@@@@@@@@@@@@@@");
    Print #1, Tab(0); Format(saidadetalhe![SaidaQuantidade], "000"); " "; Format$(Format$(saidadetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@@@"); _
    " "; Format$(Format$(saidadetalhe![SaidaValorVenda] * saidadetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@")

    saidadetalhe.MoveNext
    Loop
    saidadetalhe.Close

    Não testei pois aqui no serviço não tenho impressora na LPT1, aguardo retorno.


    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 16/02/2011

    Re: Impressão cupom não fiscal

    Mensagem  Naldo em Sex 04 Maio 2012, 17:06

    JUNGLI, deu certo, muito bom mesmo.

    Só lhe peço mais uma ajuda; No nome do Cliente, Operador e o Tipo de Pagamento ao invés de informar o número, informar o nome dos mesmos(abaixo do rótulo CONTROLE INTERNO)

    Sou muito grato pela sua atenção.
    Que DEUS ilumine seus caminhos




    CEZARMAX
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 09/02/2012

    Manipulando Fontes no Cupom não Fiscal!

    Mensagem  CEZARMAX em Seg 08 Jun 2015, 21:25

    Boa tarde,

    Alguém sabe como manipular a fonte, tipo aumentar o tamanho, e textos em negrito, usando com o printf do visual??

      Data/hora atual: Dom 11 Dez 2016, 01:17