[Resolvido]Dúvida sobre menus

Bom dia

Estou utilizando o seguinte comando para impressão:

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

Tudo funciona.
Gostaria de saber como posso alterar as opçoes quando clico em Salvar como PDF/XPS?

Desde já agradeço.

Abraço

MArcelo

Se estiver usando a versão 2007 do Access, tem que atualizar com o pacote sp2 ou sp3 para que o PDF funcione.

Indica algum erro quando se clica no botão ?

bom, experimente usar o ID: 12951

Utilizo o access 2010.
Está tudo funcionando.
O que acontece que quando clico na função enenviar email, aparece várias possibilidades de extensão de arquivo e eu queria limitar somente ao tipo "pdf".

Olá

Crie então um botão próprio, chamando por uma função. Nesta função utilize o Docmd.OutPutTo para gerar o PDF.

Sucesso!

Ok, obrigado.