[Resolvido]Exibir função quando abre formulario

Boa tarde
Utilizo os comandos abaixo para exibir quadro de impressão quando estou relatório aberto e clico no botão direito do mouse.
Gostaria que este quadro fosse aberto já quando abro o relatório.

Dim cmbRightClick As Office.CommandBar
Dim cmbControl As Office.CommandBarControl
Set cmbRightClick = CommandBars.Add("AtalhoRelatorio", msoBarPopup, False, True)
With cmbRightClick
Set cmbControl = .Controls.Add(msoControlButton, 2521, , , True)
cmbControl.Caption = "Impressão Rápida"
Set cmbControl = .Controls.Add(msoControlButton, 15948, , , True)
cmbControl.Caption = "Selecionar Impressora"
Set cmbControl = .Controls.Add(msoControlButton, 247, , , True)
cmbControl.Caption = "Configurar Página"
Set cmbControl = .Controls.Add(msoControlButton, 2188, , , True)
cmbControl.BeginGroup = True
cmbControl.Caption = "Enviar como anexo no e-mail"
Set cmbControl = .Controls.Add(msoControlButton, 12499, , , True)
cmbControl.Caption = "Salvar como PDF/XPS"
Set cmbControl = .Controls.Add(msoControlButton, 923, , , True)
cmbControl.BeginGroup = True
cmbControl.Caption = "Fechar Relatório"
End With
Set cmbControl = Nothing
Set cmbRightClick = Nothing


Existe como fazer isto?
Grato pela ajuda.
Abraço
Marcelo

Tópico movido para a sala adequada. A sala em que ele estava é exclusiva para a postagem de exemplos.

Você que ele dentro do módulo do relatório? Se for, basta mudar o evento para o "Ao carregar" ou "Ao abrir" do relatório.

Acontece que somente consegui fazer funcionar quando teclo o botão direito do mouse.
Creio que seja devido "Set cmbRightClick = CommandBars.Add("AtalhoRelatorio", msoBarPopup, False, True)".
Gostaria que sempre que abrisse o relatório, visualizasse este menu.
Coloquei no evento load e open mas não funcionou.
Att
Marcelo

Poderia enviar uma cópia do aplicativo para a gente dar uma olhada? Ficaria mais fácil.

Para chamar o menu de atalho que está no botão direito do mouse na abertura do relatorio;

Relatorio com Visualizar Teclas=Sim

Private Sub Report_Load()
SendKeys ("+{F10}")
End Sub


Este tópico;
http://maximoaccess.forumeiros.com/t2350-tecla-direita-do-mouse

Está repetido com este, por isso foi fechado.

Obrigado pelo retorno.
Consegui o desejado.

abraço

Marcelo