Automating Zoom Level for MS Access Report

[C. David Rossen]

Hello:

I have a report called rptIvoiceLog for which I have created a button to
open it up. The Event Procedure for the button is:

stDocName = "rptInvoiceLog"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize

By default, the report size zoom level is "fit" so the entire page fits in
the window. I normally click zoom once to get it to 100%. I was wondering
if there something that I could add to the event procedure that would open
the report at a starting zoom level of 100% or any other percentage that I
wanted. Thanks for any help on this.

David

 

[Allen Browne]

To get the report to open at 100%, set the Auto ReSize property of the
report to No.

 

[C. David Rossen]

Thanks Allen. That worked. I don't suppose there is a way to open the
report at a specified zoom level is there? For example if I wanted to open
it at 135%?

David

 

[fredg]

Thanks Allen. That worked. I don't suppose there is a way to open the
report at a specified zoom level is there? For example if I wanted to open
it at 135%?

David

Would you be happy with Zoom150?

DoCmd.OpenReport stDocName, acViewPreview
DoCmd.Maximize
DoCmd.Runcommand acCmdZoom150

 

[Marshall Barton]

Hello:

I have a report called rptIvoiceLog for which I have created a button to
open it up. The Event Procedure for the button is:

stDocName = "rptInvoiceLog"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize

By default, the report size zoom level is "fit" so the entire page fits in
the window. I normally click zoom once to get it to 100%. I was wondering
if there something that I could add to the event procedure that would open
the report at a starting zoom level of 100% or any other percentage that I
wanted.

Add a line like:

RunCommand acCmdZoom100

Other zoom factors are:
acCmdZoom10
acCmdZoom1000
acCmdZoom150
acCmdZoom200
acCmdZoom25
acCmdZoom50
acCmdZoom500
acCmdZoom75
acCmdSizeToFit

 

[C. David Rossen]

Fred:

Thanks..works great.

David

Would you be happy with Zoom150?

DoCmd.OpenReport stDocName, acViewPreview
DoCmd.Maximize
DoCmd.Runcommand acCmdZoom150