sorry but you cant put any FaceID on the macro.
you have to use VBA and create the menu there.
paste in Module:
run this and this "ContextMenu1" will be availableCode:Sub CreateContextMenu() Const strMenuName As String = "ContextMenu1" On Error Resume Next Dim cbar As CommandBar Dim bt As CommandBarButton 'delete first if already exists CommandBars.Item(strMenuName).Delete 'recreate Set cbar = CommandBars.Add(strMenuName, msoBarPopup, , False) Set bt = cbar.Controls.Add With bt .Caption = "&Print" .OnAction = "=fnPrint()" .FaceId = 15948 End With End Sub
on your form/report Property->Other->Shortcut Menu Bar
hello am trying to use your module but am getting an error
Invalid procedure call or argument
on this line => CommandBars.Item(strMenuName).Delete
any solution ?