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

    Imprimir Cupom nao Fiscal duas Vezes e

    avatar
    rsantosinf
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 13/03/2012

    Imprimir Cupom nao Fiscal duas Vezes e Empty Imprimir Cupom nao Fiscal duas Vezes e

    Mensagem  rsantosinf 28/11/2014, 01:22

    E ai Galera,

    Um prazer viu...

    Duas perguntas bem direta.

    1. Qual é o código para imprimir um cupom não fiscal duas vezes meu sisteminha ja imprime o cupom nao fiscal numa boa,
    mas queria que tirasse duas impressão uma após a outra.

    2. Existe algum Código para abrir uma gaveta de dinheiro marca Menno...
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 769
    Registrado : 30/08/2010

    Imprimir Cupom nao Fiscal duas Vezes e Empty Re: Imprimir Cupom nao Fiscal duas Vezes e

    Mensagem  gilberlanio 28/11/2014, 13:06

    Tente colocar o código de impressão no seu botão duas vezes que funciona.
    Exemplo:

    DoCmd.OpenReport "Rel_CupomNaoFiscal", acViewNormal, "", "", acNormal
    DoCmd.OpenReport "Rel_CupomNaoFiscal", acViewNormal, "", "", acNormal


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    avatar
    rsantosinf
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 13/03/2012

    Imprimir Cupom nao Fiscal duas Vezes e Empty Sem relatorio no acceess.

    Mensagem  rsantosinf 28/11/2014, 13:23

    gilberlanio, muito obrigado pela tua atenção...

    A questão é: Não existe relatorio feito no access o cupom é enviado diretamente para a impressora nao fiscal Bematch...
    vou colocar aqui o codigo do cupom....
    Usei esse Codigo mas nao funcionou. (printer.copie=2)

    Sub Cupom()
    Dim nPed, DtVenda, Fpag
    'Variável para o número da venda
    nPed = StrNumVenda
    'Variável para a data da venda
    DtVenda = Format(Date, "dd/mm/yyyy")
    'Variável para o tipo de pagamento
    Fpag = StrTipoPgto
    If MsgBox("DESEJA IMPRIMIR O PEDIDO?", vbInformation + vbYesNoCancel, "Imprime Pedido.") = vbYes Then
    'cupon para impressora termica de 40 colunas

    'Open "LPT1:" For Output Access Write As #1
    'Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

    Printer.Copies = 2<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< O CODIGO QUE NAO DEU CERTO>>>>>>>

    Dim PortImp As String
    'Open "c:\teste.txt" For Output Access Write As #1
    PortImp = "\\Caixa01\EPSONTM"
    Open PortImp For Output As #1

    Print #1, Tab(0); "*******   Padaria Genesis    *******"
    Print #1, Tab(0); "Rua.: " & " H QD 25" & " 1 " & "ARMANDO MENDES";
    Print #1, Tab(0); "MANAUS" & " - " & "AM"; " Cep: " & "69089-120";
    Print #1, Tab(0); "Tel: " & "(92)3615-    ";
    'Print #1, Tab(0); "Site: " & "WWW.GENEISPANIFC.COM.BR";

    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(10); "Codigo do Pedido : " & nPed;
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(0); "Data :" & DtVenda; " " & " "; "Hora :" & Time;
    Print #1, Tab(0); "Forma Pagamento: " & Fpag
    Print #1, Tab(0); String(40, "-");


    'cabeça do cupon do items
    Print #1, Tab(0); "Descricao "; "(Codigo)";
    Print #1, Tab(0); "Und "; " Pco.Unit."; " Qtd./Peso "; " Vlr.Total "
    Print #1, Tab(0); String(40, "-");


    'selecionar items do cupon
    Dim StrSQL As String
    Dim Rs As DAO.Recordset
    Dim Db As DAO.Database

    'Instrução SQL para uso no recordset
    StrSQL = "SELECT tblProdutos.Codigo, tblVendas.CodigoBarras, tblProdutos.Descricao, tblUnidadeMed.Sigla," _
    & "tblVendas.Qtde, tblVendas.PrecoUnitario, tblVendas.SubTotal, tblVendas.CpUsuario" _
    & " FROM tblUnidadeMed INNER JOIN (tblProdutos INNER JOIN tblVendas" _
    & " ON tblProdutos.CodigoBarras = tblVendas.CodigoBarras)" _
    & " ON tblUnidadeMed.CodigoUnidadeMedida = tblProdutos.CodigoUnidadeMedida" _
    & " WHERE tblVendas.cpUsuario = '" & Me.txtUser & "';"

    'Seta o Db
    Set Db = CurrentDb
    'Seta o Recordset com a SQL
    Set Rs = CurrentDb.OpenRecordset(StrSQL)

    Do While Not Rs.EOF
    'Imprime os campos: Sigla, Descrição e Código de Barras
    Print #1, Tab(0); Left(Rs!Descricao, 24); " "; "(" & Format(Rs!CodigoBarras, "0000000000000"); ")" '@ alinha à direita
    'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
    Print #1, Tab(0); Format(Rs!Sigla, "@@"); " "; Format$(Format$(Rs!PrecoUnitario, "#,##0.00"), "@@@@@@@@"); _
    "        "; Format(Rs!Qtde, "#,###0.000"); " "; Format$(Format$(Rs!subtotal, "#,##0.00"), "@@@@@@@@")
    'Print #1, Tab(0); ""
    Rs.MoveNext
    Loop
    'Fecha o recorset
    Rs.Close
    'Caso venda Fracionada vai para RodapeVendaFracionada
    If Me.TipoPgto = 3 Then GoTo RodapeVendaFracionada
    'Caso venda Fracionada vai para RodapeCartãoTicket
    If StrTipoPgto = "Cartão" Or StrTipoPgto = "Ticket" Then GoTo RodapeCartãoTicket

    'Caso venda normal a vista
    'valor total do cupon
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(16); "Qtd. Itens     : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
    Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
    Print #1, Tab(16); "Dinheiro     R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
    Print #1, Tab(16); "Troco        R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(0); "Usuario: " & Usuario & "/" & StrTurno
    Print #1, Tab(0); "Terminal: "; Me.txtMaquina
    Print #1, Tab(0); String(40, "-");
    'mensagem de no rodape do cupom
    Print #1, Tab((40 - Len("Este Cupon Nao Tem Valor Fiscal")) / 2); "Este Cupon Nao Tem Valor Fiscal"
    Print #1, Tab(0); "             DEUS E FIEL             "
    Print #1, Tab((40 - Len("OBRIGADO PELA PREFERENCIA")) / 2); "OBRIGADO PELA PREFERENCIA"
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab((40 - Len("SysPDV - Versao 1.0.0 - Venda")) / 2); "SysPDV - Versao 1.0.0 - Venda";
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); "-------"
    'comando de corte
    Print #1, Chr(27) + "i"
    Close #1#
    Else
    End If
    Exit Sub

    RodapeVendaFracionada:
    'Caso a venda seja fracionada e a diferença em cartão ou ticket
    'Caso venda normal a vista
    'valor total do cupon
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(16); "Qtd. Itens     : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
    Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
    Print #1, Tab(16); "Dinheiro     R$: "; Format$(Format$(Me.Dinheiro1, "#,##0.00"), "@@@@@@@@")
    Print #1, Tab(16); "" & StrTipoFrac & "       R$: "; Format$(Format$(Me.txtCartao, "#,##0.00"), "@@@@@@@@")
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(0); "Usuario: " & Usuario & "/" & StrTurno
    Print #1, Tab(0); "Terminal: "; Me.txtMaquina
    Print #1, Tab(0); String(40, "-");

    'mensagem de no rodape do cupom

    Print #1, Tab((40 - Len("Este Cupon Não Tem Valor Fiscal")) / 2); "Este Cupon Não Tem Valor Fiscal"
    Print #1, Tab(0); "             DEUS E FIEL             "
    Print #1, Tab((40 - Len("OBRIGADO PELA PREFERÊNCIA")) / 2); "OBRIGADO PELA PREFERENCIA"
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab((40 - Len("SysPDV - Versao 1.0.0 - Venda")) / 2); "SysPDV - Versao 1.0.0 - Venda";
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); "-------"
    'comando de corte
    Print #1, Chr(27) + "i"
    Close #1#
    Exit Sub

    RodapeCartãoTicket:
    'Caso a venda seja em cartão ou ticket
    'Caso venda normal a vista
    'valor total do cupon
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(16); "Qtd. Itens     : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
    Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
    If StrTipoPgto = "Cartão" Then
       Print #1, Tab(16); "" & StrTipoPgto & "       R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
       Print #1, Tab(16); "Troco        R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
       Print #1, Tab(0); String(40, "-");
       Print #1, Tab(0); "Usuario: " & Usuario & "/" & StrTurno
       Print #1, Tab(0); "Terminal: "; Me.txtMaquina
       Print #1, Tab(0); String(40, "-");


       'mensagem de no rodape do cupom
       Print #1, Tab((40 - Len("Este Cupon Não Tem Valor Fiscal")) / 2); "Este Cupon Não Tem Valor Fiscal"
       Print #1, Tab(0); "             DEUS E FIEL             "
       Print #1, Tab((40 - Len("OBRIGADO PELA PREFERENCIA")) / 2); "OBRIGADO PELA PREFERENCIA"
       Print #1, Tab(0); String(40, "-");
       Print #1, Tab((40 - Len("SysPDV - Versao 1.0.0 - Venda")) / 2); "SysPDV - Versao 1.0.0 - Venda";

       'comando de corte
       Print #1, Chr(27) + "i"
       Close #1#
    Else
    If Me.Dinheiro = "" Or IsNull(Me.Dinheiro) = True Then
       Print #1, Tab(16); "" & StrTipoPgto & "       R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
    Else
       Print #1, Tab(16); "" & StrTipoPgto & "       R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
    End If
    Print #1, Tab(16); "Troco        R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(0); "Usuario: " & Usuario & "/" & StrTurno
    Print #1, Tab(0); "Terminal: "; Me.txtMaquina
    Print #1, Tab(0); String(40, "-");

    'mensagem de no rodape do cupom
    Print #1, Tab((40 - Len("Este Cupon Nao Tem Valor Fiscal")) / 2); "Este Cupon Nao Tem Valor Fiscal"
    Print #1, Tab(0); "             DEUS E FIEL             "
    Print #1, Tab((40 - Len("OBRIGADO PELA PREFERENCIA")) / 2); "OBRIGADO PELA PREFERENCIA"
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab((40 - Len("SysPDV - Versao 1.0.0 - Venda")) / 2); "SysPDV - Versao 1.0.0 - Venda";
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); "-------"
    'comando de corte
    Print #1, Chr(27) + "i"
    Close #1#
    End If
    Exit Sub
    'End Sub
         '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
         'Tratamento de Erros
         '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Exit_TrataErro:
         DoCmd.Hourglass False
         DoCmd.Echo True
         Exit Sub
    TrataErro:
         Select Case err.Number
           Case 0
                 'Não ´um erro
       Case Else
           DoCmd.Hourglass False
           DoCmd.Echo True
              MsgBox "Erro Gerado no: " & Me.Name & "" _
                   & vbNewLine & "No Procedimento: SubCupom" _
                   & vbNewLine & "Erro Número: " & err.Number _
                   & vbNewLine & "linha: " & Erl _
                   & vbNewLine & "Descrição: " & err.Description _
                   & vbNewLine & "Por favor contate o Administrador de Sistema.", vbCritical, err.Number & ", linha:" & Erl
         End Select
    End Sub
    avatar
    rsantosinf
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 13/03/2012

    Imprimir Cupom nao Fiscal duas Vezes e Empty E ai pessoa Alguma Ajuda por ai...??? Me dem uma luz....

    Mensagem  rsantosinf 4/12/2014, 03:30

    Uma luz para o meu caso ....

    Existe algum condigo para mandar a impressora térmica imprimir duas vezes esse formato de cupom do vba???
    biligo
    biligo
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 226
    Registrado : 10/04/2014

    Imprimir Cupom nao Fiscal duas Vezes e Empty Re: Imprimir Cupom nao Fiscal duas Vezes e

    Mensagem  biligo 4/12/2014, 04:36

    Boas amigo,

    tente o seguinte, adicione um campo de controle qualquer em uma tabela referente de valor numérico com valor padrão igual a 1

    Após o End Select adicione

    If Me.Controle = 1 Then
    Call Cupom
    Me.Controle.Value = 0
    End If

    Assim após terminar de ler o seu código pela primeira vez vai encontrar o valor 1 e ira chamar novamente seu código então
    chegara novamente no if e ira encontrar o valor 0 para não repetir milhares de vezes.

    pode até ocupar um campo lhe causando alguns bits a+ até você encontrar uma solução que lhe agrade mais e deletando a coluna.


    de uma olhada aqui também sobre seu outro problema foi o mais próximo que já vi por aqui: Como enviar um pulso de 5 volts pela serial?
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    Imprimir Cupom nao Fiscal duas Vezes e Empty Re: Imprimir Cupom nao Fiscal duas Vezes e

    Mensagem  Noobezinho 4/12/2014, 19:59

    Andre

    Mais uma sugestão:

        Call Cupon ' subfunção que imprime o cupom somente uma vez
         flag = True
         While flag = True
             If MsgBox("AGUARDE até que a impressão seja concluída" + vbCrLf + "para uma nova impressão." + vbCrLf + "Imprimir novamente ?", vbQuestion + vbYesNo, "Imprimir Cupon") = vbYes Then
                Call Cupon ' segunda impressão.
             Else
                flag = False
             End If
         Wend


    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    rsantosinf
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 13/03/2012

    Imprimir Cupom nao Fiscal duas Vezes e Empty Obrigado ....

    Mensagem  rsantosinf 11/12/2014, 03:13

    Biligo e Noobezinho.

    Vou testar as duas formas Mas de Antemão eu Agradeço muito a Atenção em Responder esse mero estudante de VBa Access.

      Data/hora atual: 16/4/2021, 20:49