zoom report

[nevsad]

hi...
I use the code to open the report.......

Private Sub Report_Activate()
    DoCmd.ShowToolbar "Print Preview", acToolbarYes
    DoCmd.Maximize
End Sub

This works great
The question is
Is it possible, upon opening the report, to use the zoom option 200%
Any ideas are welcome
thank you

 

[isladogs]

DoCmd.RunCommand acCmdZoom200

 

[arnelgp]

if you are using a command button to open the report, you can run Zoom after you open the report.
for macro:

for VBA code:

note that on the last picture, FormNamesT is my sample Report name.

 

[nevsad]

Hvala

 

[vhung]

if you are using a command button to open the report, you can run Zoom after you open the report.
for macro:
View attachment 105443

for VBA code:

View attachment 105444

note that on the last picture, FormNamesT is my sample Report name.

Very good clue, can even use on a Form as embedded macro/
DoCmd.OpenForm "frmRotate", acPreview, "", "", , acNormal
DoCmd.RunCommand acCmdZoom200
It will worked.

 

[Gasman]

Wow, nearly a 3 year old thread?

 

[CJ_London]

Think it was vhung’s way of showing their appreciation