Thursday, June 01, 2006

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.

No comments: