Access '97 - Preview Report at "Fit" size rather than default "100%"

[kjworm]

Greetings,

I have a report displayed on a screen that anyone in the office can look at. The data on this report will change from time to time. This report has different colors displayed depending on the data. Since I'm using Access '97, I can't do this on a form. What I am doing is "refreshing" this report every 60 seconds. Since Access '97 can't use the timer interval for reports, I have a form that is closing and then reopening my report using the form's timer interval. When the form opens, it opens at the default 100% size and not all data is visible. I want to change the default preview setting from "100%" to "fit". Is this possible? Does anyone know how to do it? I've hunted through the help files, settings, etc. and can't find anything to help me out...

Thanks!

[kjworm]

I think that I can use DoMenuItem, but can't find the right method to call the "Zoom" procedure.

I have tried using:

DoCmd.DoMenuItem acPrintPreview, acZoom ' just guessing here, the help files don't give a full list...
 

And I have tried using the index:

DoCmd.DoMenuItem 2, 6, 8
 

Does anyone know where to find a list of Access menubars, menu names, and commands?

Thanks

[kjworm]

Please consider this one closed. I figured it out.

I put the RunCommand in the On Timer event procedure of the form I was using to open and close my report to refresh it.

Private Sub Form_Timer()
Dim stDocName As String
stDocName = "rptStatus"
 
DoCmd.Close acReport, stDocName
DoCmd.OpenReport stDocName, acViewPreview
DoCmd.RunCommand acCmdFitToWindow
 

[NeoPa]

Try using DoCmd.RunCommand().
From here use F1 for context sensitive help to show you a list of the available commands. Some near the bottom look as if they may be of use to you.

...
acCmdWorkgroupAdministrator
acCmdZoom10
acCmdZoom100
acCmdZoom1000
acCmdZoom150
acCmdZoom200
acCmdZoom25
acCmdZoom50
acCmdZoom500
acCmdZoom75
acCmdZoomBox
acCmdZoomSelection