message: Zoom not available now.

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have tried using 'acCmdZoom75' suggested in another post and it doesn't work.

Anyone else come across this?
 
scubadiver,
Are yountrying to Zoom a report?
Where is the code placed?
The correct syntax should be
DoCmd.RunCommand acCmdZoom75
 
On the "on open" event for a report I have tried a macro using "run command"
with the "zoom75%" option but I still get the message "the command or action
'zoom75%' isn't available now".

It then says "Use only those commands and macro actions that are currently
available for this database".
 
scubadiver said:
On the "on open" event for a report I have tried a macro using "run
command" with the "zoom75%" option but I still get the message "the
command or action 'zoom75%' isn't available now".

It then says "Use only those commands and macro actions that are
currently available for this database".
Click to expand...

For some reason commands that change the report's window size and/or the
zoom level cannot be called in the Open event of the report itself. You
have to add them to the code that opens the report...

DoCmd.OpenReport "ReportName", acViewPreview
DoCmd.RunCommand acCmdZoom75

If you are not opening the report from code then you might be SOL.
 
I have the following code in the report I want to open.

Private Sub Report_Open(Cancel As Integer)

DoCmd.OpenReport "Chart - Administration", acViewPreview
DoCmd.RunCommand acCmdZoom75

End Sub

It gives a run time error "2046" and says "the command or action 'zoom75%'
isn't available now".

What does SOL mean?

cheers.
 
As Rick Brandt wrote...
For some reason commands that change the report's window size and/or the
zoom level cannot be called in the Open event of the report itself.
***You have to add them to the code that opens the report...***

That code must be in the form/button code that "calls" the report... not in the Report
itself.

Private Sub cmdOpenMyReport_Click()
DoCmd.OpenReport "Chart - Administration", acViewPreview
DoCmd.RunCommand acCmdZoom75
End Sub
 
Back
Top