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

    [Resolvido]impressao na tela e impressao no papel com resultados diferentes

    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]impressao na tela e impressao no papel com resultados diferentes Empty [Resolvido]impressao na tela e impressao no papel com resultados diferentes

    Mensagem  infformax 23/10/2020, 11:47

    bom dia pessoal

    to com uma duvida num relatorio onde faco o calculo do meu saldo

    o calculo esta ok, tudo certinho ate vou colocar a rotina abaixo, porem faco esta rotina na "secao detalhe - ao imprimir" do relatorio, porem o que acontece:

    primeiro eu gero ele como visualizacao na tela, caso o usuario nao queira imprmir ve so na tela, esta perfeito, mas se o usuario imprimi ele praticamente dobra o contador e dobra o saldo.

    acredito que seja pela questao de esta na secao detalhe ao imprimir ele quando manda imprimir acho se perde.


    - estou disponibilizando o arquivo e uma imagem da "visualizacao e da impressao no papel"



    segue a rotina da "secao detalhe - ao imprimir"


    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    On Error Resume Next


    i = i + 1
    txtmovimento = i


    If i = 1 Then
      If tabela = 1 Then
           Texto25 = "entr"
           saldo_dia = Nz(EST_INIC, 0) + Nz(QTDE, 0)
         Else
           Texto25 = "saida"
           saldo_dia = Nz(EST_INIC, 0) - Nz(QTDE, 0)
       End If
    Else
      If tabela = 1 Then
        Texto25 = "entr"
       saldo_dia = Nz(saldo_dia, 0) + Nz(QTDE, 0)
     Else
       Texto25 = "saida"
       saldo_dia = Nz(saldo_dia, 0) - Nz(QTDE, 0)
      End If
    End If

    End Sub


    obrigado a todos
    Anexos
    [Resolvido]impressao na tela e impressao no papel com resultados diferentes Attachmentestoque.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (972 Kb) Baixado 3 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3279
    Registrado : 21/04/2011

    [Resolvido]impressao na tela e impressao no papel com resultados diferentes Empty Re: [Resolvido]impressao na tela e impressao no papel com resultados diferentes

    Mensagem  Marcelo David 23/10/2020, 12:36

    Bom dia,
    pq não faz os cálculos direto nas caixas de textos?
    Basicamente seria os mesmo do VBA.


    .................................................................................
    Marcelo David | [Resolvido]impressao na tela e impressao no papel com resultados diferentes LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]impressao na tela e impressao no papel com resultados diferentes Empty Re: [Resolvido]impressao na tela e impressao no papel com resultados diferentes

    Mensagem  infformax 23/10/2020, 12:55

    bom dia marcelo,

    desculpe a minha ignorancia, mas como faco isso, pois se eu fizer na caixa de texto, ele é como um loop para eu poder apurar o saldo, onde eu faria e como eu faria?

    se puder e nao for atrapalhar ver o arquivo eu ficaria muito grato

    obrigado
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3279
    Registrado : 21/04/2011

    [Resolvido]impressao na tela e impressao no papel com resultados diferentes Empty Re: [Resolvido]impressao na tela e impressao no papel com resultados diferentes

    Mensagem  Marcelo David 23/10/2020, 14:13

    Vejamos,
    nos diga o que tem que calcular e de onde vem os dados a serem calculados?

    Poderia detalhar? Pode ser que nem precise de VBA para isso. Resolveremos nas
    consultas e expressões do Access direto no relatório.

    Mas se precisar de VBA, poderemos pensar numa forma que não altere os resultados.


    .................................................................................
    Marcelo David | [Resolvido]impressao na tela e impressao no papel com resultados diferentes LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]impressao na tela e impressao no papel com resultados diferentes Empty Re: [Resolvido]impressao na tela e impressao no papel com resultados diferentes

    Mensagem  infformax 23/10/2020, 14:28

    eu preciso calcular o saldo, pois tenho o est inicial e preciso ir a cada entrada ou saida ir fazendo o saldo dia a dia.

    ele esta partindo de uma consulta que fiz

    eu postei o banco no inicio da duvida

    obrigado
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]impressao na tela e impressao no papel com resultados diferentes Empty Re: [Resolvido]impressao na tela e impressao no papel com resultados diferentes

    Mensagem  Avelino Sampaio 23/10/2020, 15:32

    Olá!

    isso acontece por que a variável "i" tem que ser zerada. Ao visualizar é uma passada no cálculo, ao imprimir é outra passada. Acaba que de uma passada para outra temos o valor de "i" acumulado. Basta utilizar o evento "ao imprimir" do cabeçalho para zerar a variável "i"

    Private Sub CabeçalhoDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
    i = 0
    End Sub


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    infformax gosta desta mensagem

    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]impressao na tela e impressao no papel com resultados diferentes Empty Re: [Resolvido]impressao na tela e impressao no papel com resultados diferentes

    Mensagem  infformax 23/10/2020, 17:04

    grande mestre avelino

    muito obrigado pela colaboracao, perfeito

      Data/hora atual: 12/4/2021, 02:43