MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Como bloquear as Ctrl+p - para evitar impressão de um formulário

    avatar
    Marlon.araujo5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 26/01/2013

    Como bloquear as Ctrl+p  - para evitar impressão de um formulário Empty Como bloquear as Ctrl+p - para evitar impressão de um formulário

    Mensagem  Marlon.araujo5 13/5/2013, 02:31

    Acidentalmente, o usuário usando o Ctrl+p, pode imprimir o formulário, não clicando no botão destinado a impressão do relatório.
    Como bloquear o Ctrl+p?
    (vi umas ajudas por aqui, mas ainda não consegui).

    Toda ajuda será bem vinda.

    Obrigado.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Como bloquear as Ctrl+p  - para evitar impressão de um formulário Empty Re: Como bloquear as Ctrl+p - para evitar impressão de um formulário

    Mensagem  Avelino Sampaio 13/5/2013, 09:56

    Bom, para bloquear o CTRL + P no seu projeto inteiro vc pode criar a macro Autokeys. Nesta macro crie uma sub macro de nome ^p e na ação selecione "Alarme sonoro"

    Se desejar bloquear apenas no formulário específico, passe a propriedade "Visualizar teclas" do formulário para sim e no evento "Ao apertar tecla", coloque

    Código:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
      If Shift = 2 And KeyCode = 80 Then KeyCode = 0 'bloqueia o CTRL+P
    End Sub

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

      Data/hora atual: 7/11/2024, 15:40