database window not staying hidden

[bpaquette]

so i have a button on my switchboard that prints a report... the problem is that when it's clicked, the database window -- which should be hidden! -- is revealed.


the code is (it's just slightly modified wizard code):

Private Sub cmdPrintAlphaRoster_Click()
On Error GoTo Err_cmdPrintAlphaRoster_Click

    Dim stDocName As String
    Dim MyForm As Form




    stDocName = "rptAlphaRoster"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acReport, stDocName, True
DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False

Exit_cmdPrintAlphaRoster_Click:
    Exit Sub

Err_cmdPrintAlphaRoster_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrintAlphaRoster_Click
    
End Sub