Zoom rpeort to "Fit"

[vmon]

Is there a way to programatically zoom a report to "Fit". I have tried the DoCmd.RunCommand acCmdZoom75 etc. and cannot find a way to "Fit" report so that when it is displayed Maximized the page up page down work without clicking on rpeort to "Fit".

Thanks,
vmon

 

[GingerR]

i have a button on a form which in the OnClick event it opens a report in PrintPreview
the next line is:

docmd.RunCommand acCmdFitToWindow

g

 

[DaOtH]

Hi,

I tried this as well but then i put it in the on open event:

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
DoCmd.RunCommand acCmdFitToWindow
End Sub

Unfortunately i get error 2046, claiming acCmdFitToWindow is not available at this moment.

Any idea's ? "In three words I can sum up everything I've learned about life: it goes on."
- Robert Frost 1874-1963

 

[CosmoKramer]

How about this:

DoCmd.OpenReport "rptReport", acViewPreview
DoCmd.Maximize

 

[vmon]

This works like a charm for me. I am using A2K. Might be a problem using a sub report though. I have not tried that.

vmon

Private Sub cmdReport_Click()
On Error GoTo Err_cmdReport_Click
Dim stDocName As String

stDocName = "rptOperatorPerformanceRanked"

DoCmd.OpenReport stDocName, acPreview
DoCmd.RunCommand acCmdFitToWindow

Exit_cmdReport_Click:
Exit Sub

Err_cmdReport_Click:
MsgBox Err.Description
Resume Exit_cmdReport_Click

End Sub