[Resolvido]Barra de menus

Pessoal,

Gostaria que meu relatório exibisse a barra de menu conforme a apresentada na imagem a seguir,
Ocorre que já fiz e conferi tudo que a minha capacidade permite e não consegui implementá-la.
Saberiam como fazer para exibi-la nos relatórios gerados?

Seu relatório esta como Pop-up?, se tiver experimenta colocar como Não.
Outra coisa e que para aparecer essas opções o "Ribbon" deve estar ativado, veja se não tem nenhum formulário desativando eles ao Carregar.

Eu já havia visto isto.
O comando do botão é este:

Private Sub Imprimir_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "rltDados"
strFilter = "Código= Forms!frmDados!Código"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter
DoCmd.Maximize
End Sub

Deve ser alguma barra personalizada. O problema é como fazê-la.

Posta seu BD pra testarmos, limpa os dados e deixa so um exemplo.

Pelo que pesquisei, o modelo por mim referenciado possui uma barra personalizada.