Database Window UnHides When Printing Form

[kopy]

I have a form with a button to print another form. When I execute the following code, the database window unhides.

Dim stDocName As String
Dim MyForm As Form

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

Why does it do this and how can I keep the database window hidden?

Thanks for any help,
Kopy

 

[TheAceMan1]

How are ya kopy . . .

For an object to receive the focus (when selected) in the database window, the database window has to be open not hidden. For your code I believe this happens in the following line:

[blue]DoCmd.SelectObject acForm, stDocName, [purple][b]True[/b][/purple][/blue]

Here [purple]True[/purple] selects the form object in the database window.

See DoCmd.SelectObject Method which states in the remarks section:

[blue]You can use the SelectObject method to select a specified database object.

The SelectObject action works with any Access object that can receive the focus. This action gives the specified object the focus and [purple]shows the object if it's hidden.[/purple][/blue]

To get around it you can try hiding the window again with the following, just after the SelectObject line:

[blue]   Docmd.SelectObject acForm, , True
   Docmd.RunCommand acCmdWindowHide[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see faq219-2884 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]