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.
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.