Contabilizar relatório Impresso.

Boa noite Pessoal!

Tenho um relatório que abrir no clicar de um botão.
DoCmd.OpenReport "Nome_Do_Relatoio", acViewPreview, , , acWindowNormal

Gostaria de saber se é possível de alguma forma contabilizar quantas vezes esse relatório foi impresso e por quem (Environ("UserName").

Alguma Ideia de como fazer isso.
Lembrando que o usuário pode as vezes abrir o relatório mas nem sempre vai imprimir (Crtl+P).

Saudações !

Pode ter tabela para controlar quantas vezes é chamada a função. Se pré-visualizar e imprimir, escapa ao controlo. Pode tentar bloquear o menu de atalho de impressão

Desculpe Alexandre,

não entendi "Pode tentar bloquear o menu de atalho de impressão"

Pensei justamente em criar a tabela mas não saberia dizer se imprimiu ou não.


Obrigado!

Bom dia,
Nas propriedades do formulário: menu de atalho=Não

Boa Noite Alexandre !

Tentei fazer como sugeriu mas o Relatorio nao tem a opção de Menu de atalho = sim ou nao com é de costume ver nos formularios.

mesmo assim tentei no vba ao iniciar do report ShortcutMenuBar = False e nao funcionou,


Alguma outra sugestão.

Boa tarde,
Realmente, temos de inventar

Crie uma função
Function NenhumMenuDeAtalho()
End Function

Na propriedade Barra de menus de atalho, coloque =NenhumMenuDeAtalho()

Alexandre desculpe mais um vez pela demora,

Mas resolvi da seguinte forma
Primeiro bloqueia a a tecla de atalho Ctrl+p e crio msgbox perguntando se deseja imprimir, caso sim faco um insert na tabela de contagem de impressao.

Código:

Private Sub Report_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift = 2 And KeyCode = 80 Then KeyCode = 0 'bloqueia o CTRL+P
  If MsgBox(" Deseja Imprimir o Relatório?", vbYesNo, "Imprimir Relatório") = vbYes Then
  CurrentDb.Execute ("insert into Tbl_ContagemImpressão....")
  End If
End Sub


Obrigado!

Desculpe voltar ao topico.

Mas na hora que coloco o evento de imprimir da erro.

Código:

Private Sub Report_KeyDown(KeyCode As Integer, Shift As Integer)
   If Shift = 2 And KeyCode = 80 Then KeyCode = 0 'bloqueia o CTRL+P
   If MsgBox(" Deseja Imprimir o Relatório?", vbYesNo, "Imprimir Relatório") = vbYes Then
    CurrentDb.Execute ("insert into Tbl_ContarFichaImpressa(Impressa_Por,Dt_Impressao) " _
            & " Values ('" & Environ("UserName") & "','" & Now & "' ")
    DoCmd.OpenReport "Rel_Ficha", acViewNormal
   End If
End Sub

Seu eu conseguiu substituir o Crtl+P para o evento abaixo seria a mesma coisa, alguma ideia de como fazer ?

Código:

 If MsgBox(" Deseja Imprimir o Relatório?", vbYesNo, "Imprimir Relatório") = vbYes Then
    CurrentDb.Execute ("insert into Tbl_ContarFichaImpressa(Impressa_Por,Dt_Impressao) " _
            & " Values ('" & Environ("UserName") & "','" & Now & "' ")
    DoCmd.OpenReport "Rel_Ficha", acViewNormal
   End If

Erro
https://dl.dropboxusercontent.com/u/19875180/erro.png

alguém tem ideia do que pode ser ?
Obrigado !

Mudei um pouco o codigo baseado em em exemplo do JPaulo mas ainda sim continua a dar um erro.
"Nao pode executar essa ação em um evento de formulário ou relatório"

Private Sub Report_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intCtrlApertada As Integer
intCtrlApertada = (Shift And acCtrlMask) > 0
'Se a tecla Control estiver apertada
If intCtrlApertada Then
'Se apertar p
If (KeyCode = 80) Then
KeyCode = 0
If MsgBox(" Deseja Imprimir o Relatório?", vbYesNo, "Imprimir Relatório") = vbYes Then
CurrentDb.Execute ("Insert into Tbl_ContarFichaImpressa(Impressa_Por,Dt_Impressao) Values ('" & Environ("UserName") & "','" & Now & "')")
DoCmd.PrintOut
End If
End If
End If
End Sub