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

    [Resolvido]Definir zoom ao abrir relatório

    avatar
    RodriguesChqao
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 104
    Registrado : 31/05/2016

    [Resolvido]Definir zoom ao abrir relatório Empty [Resolvido]Definir zoom ao abrir relatório

    Mensagem  RodriguesChqao 26/10/2016, 12:18

    Bom dia!

    Gostaria de definir um zoom, por exemplo, 125% ao abrir um relatório.

    Existe algum código VBA para isso?

    Obrigado.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Definir zoom ao abrir relatório Empty Re: [Resolvido]Definir zoom ao abrir relatório

    Mensagem  FabioPaes 26/10/2016, 14:35

    Amigo, da pra definir isso no Botão que abre esse Relatorio...

    Ex:


    Private Sub Comando17_Click()
    'Abre o Relatorio
    DoCmd.OpenReport "Rel_Estoque", acViewPreview
    'Maxmiza
    DoCmd.Maximize
    'Aplica o Zooom de 150%
    DoCmd.RunCommand acCmdZoom150
    End Sub


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    RodriguesChqao
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 104
    Registrado : 31/05/2016

    [Resolvido]Definir zoom ao abrir relatório Empty Re: [Resolvido]Definir zoom ao abrir relatório

    Mensagem  RodriguesChqao 26/10/2016, 16:52

    Boa tarde

    Inseri o seguinte código na caixa de combinação que abre o relatório

    Private Sub Combinação8_DblClick (Cancel As Integer)

    DoCmd.OpenReport [Distri OM], acViewPreview

    DoCmd.Maximize

    DoCmd.RunCommand acCmdZoom150

    End Sub


    No entanto o relatório continua abrindo com zoom de 100%

    Onde estou errando.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Definir zoom ao abrir relatório Empty Re: [Resolvido]Definir zoom ao abrir relatório

    Mensagem  FabioPaes 26/10/2016, 18:35

    Amigo, testei aqui no Click de um Botão e se comportou direitinho! Posta aqui o exemplo!


    So uma coisa que achei estranho:

    DoCmd.OpenReport [Distri OM], acViewPreview


    No nome do Relatorio deve ser informado entre aspas:


    DoCmd.OpenReport "Distri OM", acViewPreview



    Porem se nao tiver entre aspas ele nao abre o relatório, e emite um erro... Então suponho que escreveu aqui errado ne?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    RodriguesChqao
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 104
    Registrado : 31/05/2016

    [Resolvido]Definir zoom ao abrir relatório Empty Re: [Resolvido]Definir zoom ao abrir relatório

    Mensagem  RodriguesChqao 26/10/2016, 20:35

    Boa tarde!

    Com o botão funciona perfeitamente, testei aki.


    O problema é que, neste caso, o relatório é aberto através da seleção (click) em uma caixa de combinação.


    O relatório abre, mas não aplica o zoom maior.

    toyebom
    toyebom
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1118
    Registrado : 18/07/2012

    [Resolvido]Definir zoom ao abrir relatório Empty Definir zoom ao abrir relatório

    Mensagem  toyebom 26/10/2016, 21:56

    Colocas o comando no evento ao abrir do relatório em vez de colocares no form

    DoCmd.Maximize

    DoCmd.RunCommand acCmdZoom150


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Definir zoom ao abrir relatório Empty Re: [Resolvido]Definir zoom ao abrir relatório

    Mensagem  FabioPaes 26/10/2016, 23:25

    Amigo, deve estar havendo algum problema com seu relatorio ou versão do Office, pois testei aqui de tudo quanto foi Jeito e funcionou certinho em ambos os casos... (Testem em Botão, Em Caixa de Listagem, em Caixa de Combinação...)


    Amigo toyebom O Comando  DoCmd.RunCommand acCmdZoom150 Não funciona se colocado direto no Relatório...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    RodriguesChqao
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 104
    Registrado : 31/05/2016

    [Resolvido]Definir zoom ao abrir relatório Empty Re: [Resolvido]Definir zoom ao abrir relatório

    Mensagem  RodriguesChqao 31/10/2016, 13:00

    Vou verificar meu relatório
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Definir zoom ao abrir relatório Empty Re: [Resolvido]Definir zoom ao abrir relatório

    Mensagem  FabioPaes 31/10/2016, 21:03

    E entao amigo, como ficou?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    RodriguesChqao
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 104
    Registrado : 31/05/2016

    [Resolvido]Definir zoom ao abrir relatório Empty Re: [Resolvido]Definir zoom ao abrir relatório

    Mensagem  RodriguesChqao 1/11/2016, 15:35

    Em um formulário teste funcionou perfeitamente. Preciso ver meu formulário, mas ainda não tive tempo. obrigado

      Data/hora atual: 17/4/2021, 15:31