MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 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 em 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 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 em 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 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 em 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 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 em 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 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 em 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 100%

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

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

    Mensagem  toyebom em 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 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 em 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 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 em 31/10/2016, 13:00

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

    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 em 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 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 em 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: 27/5/2020, 03:47