Automating Zoom Level for MS Access Report

C

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
 
A

Allen Browne

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

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
 
F

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
 
M

Marshall Barton

C. David Rossen said:
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

C. David Rossen

Fred:

Thanks..works great.

David

fredg said:
Would you be happy with Zoom150?

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top