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


3 participantes

    Como impedir Zoom nos relatórios

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Como impedir Zoom nos relatórios Empty Como impedir Zoom nos relatórios

    Mensagem  Assis 16/5/2012, 13:02

    Boa tarde
    Ao abrir todos os relatórios uso o comando:

    Private Sub Report_Open(Cancel As Integer)
    DoCmd.Maximize
    End Sub

    Depois de aberto o relatório se clikar na tecla "Escape" o relatório fecha.
    Mas com o relatório aberto se fizer um click com o rato no monitor, ele faz Zoom e depois já não fecha com a tecla "Escape"
    Como bloquear o Zoom ao abrir os relatórios ?
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Como impedir Zoom nos relatórios Empty Re: Como impedir Zoom nos relatórios

    Mensagem  criquio 16/5/2012, 15:27

    E se abri-lo no modo de Relatório ao invés de Visualização de impressão?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Como impedir Zoom nos relatórios Empty Re: Como impedir Zoom nos relatórios

    Mensagem  Assis 16/5/2012, 16:59

    Boa tarde Criquio

    Conheço

    DoCmd.OpenReport "" & lstInformes & "", acNormal
    DoCmd.OpenReport "" & lstInformes & "", acPreview

    Tem mais ?

    Obrigado




    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Como impedir Zoom nos relatórios Empty Re: Como impedir Zoom nos relatórios

    Mensagem  criquio 16/5/2012, 17:29

    No caso do modo relatório, é acReport.

    Caso o recurso esteja habilitado no seu Access, você pode ver todas as opções enquanto digita, ou seja, quando digitar a vírgula anterior ao tipo, deve ser aberta uma lista de opções. Caso não, no help do vba você encontra todas as opções para todas as partes da função.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Como impedir Zoom nos relatórios Empty Re: Como impedir Zoom nos relatórios

    Mensagem  Assis 16/5/2012, 18:10

    Criquio
    Acontece o mesmo
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Como impedir Zoom nos relatórios Empty Re: Como impedir Zoom nos relatórios

    Mensagem  criquio 16/5/2012, 18:55

    Com ele no modo relatório, você pode pode tentar utilizar o evento "Ao apertar tecla" para fechá-lo caso a tecla pressionar seja o Esc(27):

    If KeyCode = 27 Then
    DoCmd.Close
    End If


    O evento "Visualizar tecla" deve estar como Sim. No modo "Visualização de impressão" não dá para utilizar esses eventos diretamente.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Bão
    Bão
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 04/05/2011

    Como impedir Zoom nos relatórios Empty Re: Como impedir Zoom nos relatórios

    Mensagem  Bão 26/5/2012, 15:48

    Caro Assis...

    Realmente a dica do Criquio é a melhor solução...

    O único incoveniente é que vc vai ter que colocar como "bloqueadas" todas as caixas de texto do relatório, para impedir alterações, que são permitidas nesse modo...

    Deixo um exemplo pra vc...
    Anexos
    Como impedir Zoom nos relatórios AttachmentRelatorioEsc.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (17 Kb) Baixado 24 vez(es)

    Conteúdo patrocinado


    Como impedir Zoom nos relatórios Empty Re: Como impedir Zoom nos relatórios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 11:41