[Resolvido] Não permitir impressão

Bom dia pessoal,
Gostaria de saber se existe a possibilidade de não peritir que um relatório seja impresso, ou seja apenas visualizar.
Ats,
Jorge.

Bom dia amigo

Para visualizar o Relatório antes da impressão:

Dim stDocName As String

stDocName = "seu relatório"
DoCmd.OpenReport stDocName, acPreview

Se pretender imprimir directamente, substituir acPreview por acNormal

Bom Trabalho

Boa noite,
Não sei se não fui bem claro ou não entendi sua mensagem.
Na realidade preciso visualizar o relatório normalmente, mais, que ele não tenha a possibilidade de ser impresso. Será possível isso?
Ats,
Jorge.

Olá jferna! Tente o seguinte:
Primeiro, abra seu relatório em modo estrutura ou design e, nas propriedades gerais do relatório, aba "Outra", coloque Menu Pop-up e Janela restrita = Sim, para que o usuário não possa sair fora do relatório enquanto ele estiver aberto. Depois, na mesma aba, coloque "Barra de menus de atalho" = 0 para bloquear o botão direito do mouse. Na guia "Evento", defina Visualizar teclas como Sim e coloque, no evento "Ao pressionar tecla", o código abaixo para desabilitar a tecla "P":

If KeyCode = 80 Then
KeyCode = 0
End If

Agora, use a dica do Sergio para abrir o formulário.

Boa noite, valeu pessoal, funfou blz.
Grato.
Jorge.

Obrigado pelo retorno. Precisando, dê um assovio.