Zoom on print preview

[Steven]

I am trying to view my reports at 150% and have used the
following code at On Open

DoCmd.OpenReport "rptSubcontractors", acViewPreview
DoCmd.RunCommand acCmdZoom150

but it doesn't work. I keep getting a runtime error 2046
saying zoom150% is unavailable.
Any assistance appreciated.

 

[fredg]

I am trying to view my reports at 150% and have used the
following code at On Open

DoCmd.OpenReport "rptSubcontractors", acViewPreview
DoCmd.RunCommand acCmdZoom150

but it doesn't work. I keep getting a runtime error 2046
saying zoom150% is unavailable.
Any assistance appreciated.

You seem to have placed the code in the Report's Open event.
It doesn't go there.

Place your code in the Form's Command Button click event that is used
to open the report "rptSubContractors"

 

[Steven]

The command button for these reports is on a switchboard
page which I cannot access in design view (it keeps
reverting to the page before). When I did insert the code
on the command button in form view, the command was
placed on all pages (eg. button(3) etc). hope this makes
sense.

 

[Van T. Dinh]

You can write a Public Function containing the posted code and use the
"RunCode" Command of the Switchboard to run the Function.

 

[fredg]

The command button for these reports is on a switchboard
page which I cannot access in design view (it keeps
reverting to the page before). When I did insert the code
on the command button in form view, the command was
placed on all pages (eg. button(3) etc). hope this makes
sense.

It makes sense, because you are using that blankety blank Access
generated switchboard.

It would make your programming life much simpler to create your own
switchboard using an unbound form with command buttons. If you use the
Command Button wizard, Access will even create much of the code for
you. Then adding the RunCommand to the button code is very simple.
You control the appearance and functionality of the switchboard.

Using your current switchboard setup, I suggest you create a
sub-procedure in a module:

Public Sub ZoomReport()
DoCmd.OpenReport "ReportName", acViewPreview
DoCmd.RunCommand acCmdZoom150
End Sub

Then change the switchboard, using the switchboard manager,
from the OpenReport command you now have to:
RunCode

Write:
ZoomReport
in the Function Name dialog box.

 

[Steven]

Thanks for your reply.
I have posted the code as a public function, and changed
the switchboard manager to run the code. But I am still
having problems and the report will not open, instead
receiving an error message.
grateful further advice.

 

[fredg]

Thanks for your reply.
I have posted the code as a public function, and changed
the switchboard manager to run the code. But I am still
having problems and the report will not open, instead
receiving an error message.
grateful further advice.

You didn't have to make it a function. A sub is fine.
You'll need to place a breakpoint in the function and run the code.
When it reaches the breakpoint, step through the code one step at a
time. There is no reason for the report to not open if you have
correctly written and called the sub/function.

Again, my best advice is to create your own switchboard.