Quick Tip: Custom Zoom Access Reports in VBA

The Access DoCmd.RunCommand Constants for zooming a report in Preview mode in VBA are fixed at:

• acCmdZoom10
• acCmdZoom25
• acCmdZoom50
• acCmdZoom75
• acCmdZoom100
• acCmdZoom150
• acCmdZoom200
• acCmdZoom500
• acCmdZoom1000

To set a custom zoom level you can use the undocumented ZoomControl property of the Report object:

Reports(ReportName).ZoomControl = ZoomCoeff

Use with care! The property is not documented and therefore not supported by Microsoft.

Go to the AccessWeb for detailed sample code.