Custum toolbar for printing?

[sasolini]

Hey,

I use a code to hide my toolbars and database window and desable Right Mouse Click. The code I use is:

[COLOR=DarkGreen]'Hide Toolbars[/COLOR]
Dim i As Integer
For i = 1 To CommandBars.Count
    CommandBars(i).Enabled = False
Next i

[COLOR=DarkGreen]'hide Database Window[/COLOR]
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide

Now i try to show my custum toolbar with code:

DoCmd.ShowToolbar "HLP1", acToolbarYes

But I still dont see the toolbar? Do I have to do anythink else to show it? I need that custum toolbar for printig my reports. So pls help me out with this.

Thx

 

[sasolini]

Is there realy noone that can help me out?

 

[Meltdown]

The problem is you've disabled your custom toolbar, you can't show it until you re-enable it.

Something like this...

Me.Application.CommandBars("HLP1").Enabled = True
Set myBar = Me.Application.CommandBars("HLP1")
myBar.Visible = True