MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

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

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

    Mensagem  PauloMaia em 3/4/2017, 00: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 100%

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

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

    Mensagem  PauloMaia em 3/4/2017, 18: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: 2/6/2020, 10:54