[Resolvido]mensagem em relatório

Boas,
mais um pedido de ajuda,
como fazer o seguinte?
depois de abrir um relatorio no modo "acViewPreview" (vista no ecan),
quero que ao fim de 5segundos mostre esta opção:

If MsgBox("Imprimir Agora? ", vbYesNo, "Gestão de Fardamento") = vbYes Then
DoCmd.OpenReport "rptoservico", acNormal, "", "[IDOservico]=[forms]![ordservico]![IDOservico]", acNormal
Else
DoCmd.CancelEvent

End If

Muitos eventos não funcionam no modo Preview. Você pode abrir no modo Report ou colocar essa instrução no botão do formulário que você clica para abrir o relatório.

Boas,
obrigado Criquio, já tinha tentado isso,´mas a mensagem abre primeiro que o relatório e eu quero o contrario, 1º abre o relatório e só depois perguntar se é para imprimir.
Na verdadeo que eu pretendo mesmo era, já com o relatório aberto, simular o CTRL+P

Use o evento "No timer" do formulário para contar o tempo. Seria algo assim no início no módulo do formulário:

Código:

Option Compare Database
Option Explicit

Dim Contar As Integer


No clique do botão:

Código:

Me.TimerInterval = 1000


No evento "No timer":

Código:

If Contar < 5 Then
    Contar = Contar + 1
Else
    Me.TimerInterval = 0
    Contar = 0
    DoCmd.PrintOut
End If

tambem não server,
tem forma de imprimir o objeto atual ou selecionado, por VBA no caso o relatório aberto, sem ser pela combinação de teclas CTRL+P?

Mas porque não serve? Detalhe melhor o motivo para podermos entender melhor.

Tambem pode tentar assim:

DoCmd.SelectObject acReport, "NomeDoRelatório", True
DoCmd.PrintOut , , , , 1

isto meto no relatório?

Boas
apos alguma pesquisa acabei por encontrar o que quero,

DoCmd.DoMenuItem acFormBar, acFile, 6

No caso do que passei seria sempre no formulário que abre o relatório. Funciona tambem.

Bom que resolveu.