[Resolvido]Definir zoom ao abrir relatório

Bom dia!

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

Existe algum código VBA para isso?

Obrigado.

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

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.

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?

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.

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

DoCmd.Maximize

DoCmd.RunCommand acCmdZoom150

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...

Vou verificar meu relatório

E entao amigo, como ficou?

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