Code Needed to Maximize Reports

[davesaint86]

When I click on the command button to open up my reports I have it setup where the reports now preview at 66%. My reports open up in the "Restore" mode. I would like my reports to open up in the "Maximize" mode. I copied the event procedure below that I'm using to open my reports. What code should I add so that my reports open up Maximized?
***********************************************************
Private Sub MasProg_SumRpt_Click()
On Error GoTo Err_MasProg_SumRpt_Click

Dim stDocName As String

stDocName = "Master (Prog) - Issues Summary Report"
DoCmd.OpenReport stDocName, acPreview
Reports(stDocName).ZoomControl = 66 'Open preview at 66%

Exit_Preview_Click:
Exit Sub

Err_Preview_Click:
MsgBox "Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
Resume Exit_Preview_Click

Exit_MasProg_SumRpt_Click:
Exit Sub

Err_MasProg_SumRpt_Click:
MsgBox Err.Description
Resume Exit_MasProg_SumRpt_Click

End Sub

 

[TheWildHare]

DoCmd.Maximize in the Report OPEN event.

 

[KyleS]

Or to streamline the code (rather than tell it to open at 66% and then maximize) Just remove this line:

Reports(stDocName).ZoomControl = 66 'Open preview at 66%


Kyle