VBA Opening report not minimized

[Thompyt]

I am using this code to open the form:

Private Sub Form_Load()
DoCmd.ShowAllRecords
DoCmd.GoToRecord , "FrmInputData", acNewRec
DoCmd.RunCommand acCmdAppMinimize
End Sub

It minimizes the application and set the form for a new record. This code is fine.


Now I have a command button to open a report:

Private Sub OpenrptRollup_Click()
    DoCmd.Close , ""
    DoCmd.OpenReport "rptRollup", acViewReport, "", "", acNormal
End Sub

This in essence works fine it closes the form and opens the report. But it opens the report minimized.

I have tried Report_Activate, Report_Load, Report_Current to get it to automatically resize itself for viewing. the report is set for pop up, center and resize. So far a no go.

Private Sub Report_Load()
    DoCmd.MoveSize , , 20000, 20000
End Sub

I think it has something to do with the "DoCmd.RunCommand acCmdAppMinimize" as the report will open fine when I have Access Maximized.

Suggestions?

Thanks

T

[davegri]

In the form's close_event, add

docmd.restore

[Thompyt]

davgri,

No affect with:

Private Sub OpenrptRollup_Click()
    DoCmd.Restore
    DoCmd.Close , ""
    DoCmd.OpenReport "rptRollup", acViewReport, "", "", acNormal
End Sub

Attached is the dBPersonnel.zip

[Missinglinq]

Move

DoCmd.Restore

down to after you open the Report.

[Thompyt]

Private Sub OpenrptRollup_Click()
    DoCmd.Close , ""
    DoCmd.OpenReport "rptRollup", acViewReport, "", "", acNormal
    DoCmd.Restore
End Sub

Doesn't work.

The form will open correctly from the command button in the report.

[davegri]

ThompytPersonnel.zip
Does this do what you want?

[Thompyt]

Davegri,
Unfortunately no. That gives you the print preview. It does give me some ideas I want to try. Nope - No go

This is what I want to get to:

This is what I get:

[davegri]

davegri_ThompytPersonnel-v02.zip
Try this approach. It uses the docmd.movesize to display the report in any size and position you want.
Bye the way, if you didn't already know, in the display in post #7 above, you can drag down the title bar to show the whole report.

[Thompyt]

Thanks davgri,
Yes I knew that you could expand it, but didn't want to have to do that.

I think my screw up was that I didn't fill it out completely: DoCmd.MoveSize 5000, 2000, 14000, 12000 was DoCmd.MoveSize ,, 14000, 12000

[davegri]

Nice little coding puzzle - I hope the solution works out, and good luck with the rest of your project.