Database window shows after printing form

[sehmke]

Hello team,

My database window is hidden.

I have a form with data about an article. When I click a button, another form opens showing a sales graph of that article.

On the form with the graph, I have put another button to print it. The code behind that button is:

Private Sub printpriceevolution_Click()
On Error GoTo Err_printpriceevolution_Click

Dim stDocName As String
Dim MyForm As Form

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

Exit_printpriceevolution_Click:
Exit Sub

Err_printpriceevolution_Click:
MsgBox Err.Description
Resume Exit_printpriceevolution_Click

End Sub

The funny thing is that after the printing (which works fine) my database window is shown, where it is supposed to be hidden.

Any idea what could trigger this? Does it have to do with pop-up dialog box settings?

Thanks

 

[MStef]

Hello sehmke!
Wipe up line "DoCmd.SelectObject acForm, stDocName,True", or put False instead of True.