Why is the navigation pane suddenly showing?

[anb001]

I have a database, where ribbons, navigation pane etc is disabled through the current database menu.

When using the database, it more or less remain hidden.

But when I run below code, the navigation pane suddenly opens, and stays open (well, it can be minimized and maximized, but not hidden).

Private Sub cmdPrint_Click()
Dim counter

    For counter = 1 To 10

        If Not Me("txtPrintNumber" & counter).Value = 0 And (Me("cboSJANumber" & counter) <> Null Or Me("cboSJANumber" & counter) <> "") Then
        Me.txtSJAPrint.Value = Me("cboSJANumber" & counter)

        DoCmd.SelectObject acReport, "rptSJAFavPrint_CPT", True
        DoCmd.PrintOut acPrintAll, , , , Me("txtPrintNumber" & counter)
        Else
        End If

        Me("txtPrintNumber" & counter) = "0"
    
    Next counter
End If

End Sub

I have tried both with an ACCDB and an ACCDE, but the same is happening.

Does anyone know why it is happening, and can you inform me how I can fix it.

Thanks.

Anders

 

[anb001]

I tried to rename the accde to accdr, but then it tells me that the "PrintOut" method isn't available. Can that be fixed?

Otherwise I end the print code with:

DoCmd.SelectObject acTable, True
    DoCmd.RunCommand acCmdWindowHide

At least the nav pane dissappear again, eventhough still annoying!

 

[anb001]

I'll try the macro way

I have attached a screendump showing the error.