Code alternative for "View / Zoom / Fit for Report

MelP · December 22nd, 2003, 09:47 AM

When a report preview is generated it can often be larger than the screen or not centred. Clicking on it makes it fit the screen. I can also produce a Macro which replicates the "View / Zoom / Fit" keystrokes (sendkeys %VZF). I have not found any VBA commands (e.g. which I can put in the report open event which would provide the same action as the keystroke Macro. Is there a VBA code which would produce the same effect please? Thanks.

embreyo · December 27th, 2003, 09:55 PM

You have a couple of choices to accomplish this. The first, and probably easiest is to use the Macro to VBA converter. The following was taken directly from the Microsoft Visual Basic Editor Help.
Convert macros on a form or report to Visual Basic
Open the form or report in form or report Design view.

Point to Macro on the Tools menu, and then click Convert Form's Macros To Visual Basic or Convert Report's Macros To Visual Basic.

To create the code yourself, use the DoCmd object's RunCommand method with one of the following constants:

acCmdFitToWindow
acCmdZoom10
acCmdZoom100
acCmdZoom150
acCmdZoom200
acCmdZoom25
acCmdZoom50
acCmdZoom75
acCmdZoomBox
acCmdZoomSelection

Your code would be similar to the following:

Code:

Private Sub Report_Open(Cancel As Integer)

    DoCmd.RunCommand acCmdFitToWindow

End Sub

Hope this helps.

MelP · December 28th, 2003, 07:39 AM

Thanks Embreyo - I have seen the "Macro to VBA converter" in the WROX Access VBA 2000 book but I just hadn't thought of using it in this case - needs a bit of lateral thinking. I'll use this. Mel P