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]Timer - para abrir

    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]Timer - para abrir Empty [Resolvido]Timer - para abrir

    Mensagem  PauloMaia 3/4/2017, 01:47

    Olá gostaria de saber se é possivel ;

    esse é um procedimento de um botão - ao clicar

    e ele abre o relatório em modo oculto que vai direto para a impressora ,  OK

    porem quero que depois de enviar para impressora , adapte-se um Timer de 5 segundos e depois ele automaticamente manda outra cópia para a impressora.

    estou tentando assim......

    DoCmd.OpenReport "RelatórioTeste", acViewNormal, , strCondicao      'Imprime a 1ª Via

    .......daqui pra cima esta o comando do btn , e esta tudo OK..... só gostaria de um timer e repetir a impressão !

         
        ' Daqui ele espera 5 segundos e imprime o mesmo relatório anterior novamente.......
           Dim PauseTime, Start
           Start = Timer
           PauseTime = 5    ' Depois de 5 segundos sai outra impressão, é o tempo da anterior ter acabado de imprimir
           DoCmd.OpenReport "RelatórioTeste", acViewNormal, , strCondicao           'Imprime a 2ª Via



    Obs.......
    Deste modo que estou fazendo  , não esta aguardando os 5 segundos - esta saindo uma impressão em seguida da outra .

    Tem como ajustar e fazer funcionar ?

    Grato.


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]Timer - para abrir Empty Re: [Resolvido]Timer - para abrir

    Mensagem  PauloMaia 3/4/2017, 19:26

    OK, esta aqui a Solução !

    https://www.maximoaccess.com/t995-provocar-pausa-numa-instrucao


    'By JPaulo ® Maximo Access




    Grato !


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"

      Data/hora atual: 21/4/2021, 17:53