Report print view option in Access 2016 runt time

There are a lot of features of the full version which are not available in the Runtime version.

Access will not let you use the built-in shortcut menus in the run-time environment, but you can create and use your own.  One way to do this is to copy the print menu and rename it, then remove all of the items I'm not interested in.  The easiest way I know to do that is to use the Access Shortcut Tool.  Which makes it easy to copy an existing shortcut menu or create your own, from scratch.  What I do is create a shortcut (right click) menu for all my reports, with options, Print, Save as PDF, Send as attachment, Export to Excel, and Close.  

These article should help you get a better understanding of short-cut menus

Understanding and using Commandbars

Understanding and using Commandbars, Part II

Commandbars (Part III) - Using built-in menus

Using shortcut menus in Access run-time environment

Check this code if this is what you want

Private Sub Form_Load()
CreateSimpleShortcutMenu
Me.Field1.ShortcutMenuBar = "ShowDataShortcutMenu"
End Sub

Select allOpen in new window

Sub CreateSimpleShortcutMenu()
      Dim newMenu As CommandBarControl
Dim cmb As CommandBar
  On Error Resume Next 'If menu with same name exists delete
  CommandBars("ShowDataShortcutMenu").Delete

    'CommandBars("ShowDataShortcutMenu").Delete

    Set cmb = CommandBars.Add("ShowDataShortcutMenu", msoBarPopup, False, False)
    With cmb
.Controls.Add msoControlButton, 11725, , , True


    End With

    Set cmb = Nothing
    Set newMenu = Nothing

End Sub

Select allOpen in new window

@Dale,
Thanks for the information, I'm still trying to understand how to do that.

@John,
I did tried your suggestion, but I got a compile error "user-defined not defined" on
 Dim newMenu As CommandBarControl  ('CommandBarControl" - user-defined not defined)
 Dim cmb As CommandBar ("CommandBar" - user-defined not defined)

also shall I put the "Private Sub CreateSimpleShortcutMenu()" code in a module or just put anywhere in the report?


Me.Field1.ShortcutMenuBar = "ShowDataShortcutMenu" -- what do you mean "Me.Field1"?  
  it's not Me.ShortcutMenuBar = "ShowDataShortcutMenu?

Thanks

Some reference probably is missing..I will take a look

@John,
I changed Dim newMenu As CommandBarControl to Dim newMenu As Object but still have problem withe the Dim cmb as CommandBar

also what's the difference if the code is in "On_Load" or "On_Open"?

Check a complete working example here : https://www.experts-exchange.com/questions/29161308/Unable-to-change-colour-of-Access-365-datasheet-column-heading-background.html?anchorAnswerId=42962457#a42962457

@Dale,
I tried to test your code, it gave me an error message "Microsoft Access can not find TestShortcutMenu"  also on the report under Short Cut Menu Bar I  don't see anything in the drop down like yours.

Did you run that procedure from the immediate window after you pasted it into a standard code module, not the report code module?  If not, do so using the immediate window:

Call CommandbarTest

Select allOpen in new window

Once you have run that code, you should see a dropdown list in the Shortcut Menu property of the report.

@Dale,
I paste the code into a standard module called "MyNewMenu" not in the report.  When I run "call commandbarTest in the Immediate window, the error message was "Compile error: Ambiguous name detected: commandbarTest

@Dale,
now I can see the TestShortcutMenu in the short cut menu bar but when in the run the report, right click, I see nothing but with a clear little square box .

@John,
I'm looking at your code, I have a question about this line:
Set cmb = CommandBars.Add("ShowDataShortcutMenu", msoBarPopup, False, False)

is suppose to be:
Set cmb = CommandBars.Add("ShowDataShortcutMenu", msoBarPopup, False, True) ?

I test both, it seems the same, so should I set the "temporary" to True or False?

here is the code that I modified from John's code.  I placed in a standard module so I can use this code on other reports, but I run to a problem is if I don't call the function On_Load on the report, the "vbaShortcutMenu" is disappears from the shortcut menu bar every time after I compact & repair the database unless I add "call CustomShortMenu" in On_Load on the report then it stays.  what did I do wrong?

Public Function CustomShortCutMenu()
Dim menuName As Object
Dim cb As CommandBar
Dim CBB As CommandBarButton

menuName = "vbaShortcutMenu"

On Error Resume Next
Application.CommandBars(menuName).Delete

On Error GoTo 0

Set cb = Application.CommandBars.Add(menuName, msoBarPopup, False, True)


Set CBB = cb.Controls.Add(msoControlButton, 11725, , , True)
CBB.Caption = "Export to Word..."
CBB.FaceId = 42


Set cb = Nothing
Set CBB = Nothing
End Function

You only want this code to run once, period.  You want to set the "Temporary" argument for both the Comandbar and the control to FALSE, this way you don't need to call this procedure ever again, ever.  

But if you do this, you don't want to do:

Application.CommandBars(menuName).Delete

Select allOpen in new window

Where did you get the FaceID = 42?

@Dale,

1).What's difference between:
       Set cb = Application.CommandBars.Add(menuName, msoBarPopup, False, False)
   and
      Set cb =CommandBars.Add(menuName, msoBarPopup, False, False)

  If I put the code in the as Public Function, Shall I use Application.CommandBar.Add instead CommandBars.Add?


2). Is this code below correct?

Public Function CustomShortCutMenu()
Dim menuName As Object
Dim cb As CommandBar
Dim CBB As CommandBarButton

menuName = "vbaShortcutMenu"


Set cb = Application.CommandBars.Add(menuName, msoBarPopup, False, False)


Set CBB = cb.Controls.Add(msoControlButton, 11725, , , True)
CBB.Caption = "Export to Word..."


Set cb = Nothing
Set CBB = Nothing
End Function

I tried #2 but still have the same issue (not show in the ShortCut Menu Bar drop down)

John,

I don't understand why you keep encouraging him to make this a temporary commandbar/control and set the ShortcutMenuBar property at run-time.  If you define the commandbar and control as permanent ([Temporary] = False) then you never need to run that code again, and can simply set the ShortcutMenuBar property of the report to the menu name.

Dale

Good point Dale

urjudo,

I'm going to back out of this question.  John and I. although using similar techniques, are just confusing you, so I'm going to let you work with John from here on out.

Dale

Dale it would be best not to back out after all you are the "master" ...i rarely deal with CommandBars ... this was a nice feature in Access 2003...but now its too much of a trouble ...i use Ribbon for all these extra features..
As for the CommandBars i just had some small piece of code laying around....

John,

I would encourage you to download the Access Shortcut Tool, much easier to use than the method in 2003.

Dale

Oh ... i must admit i didn't knew about it...thanks.

@Dale & John,
Thank you for both of your efforts to answer my question.  I did try to create a Ribbon and for some reason it did not show.  Like John was saying, I like the Access 2003 version coz it's much easier to create custom shortcut and menu bar.  I don't know why Microsoft removed some of the great features after 2003 version.

Thanks again for all your time!  very appreciated!

Did you download and install the Access Shortcut Tool, hyperlinked in my first post?

This tool was designed to replace the method used in A2003 and has made it very easy for me to make Shortcut menus over the last 4 years.  Give it a try.

@Dale,
I did download the Access Shortcut Tool, but it's a read only and every time when I open this sample database, it runs the Access Shortcut Tool, is this normal?.  Is any way I can unchecked the ready only and make it as full version? also how it works (I means I do I copy to my database).

Thanks

It's not read only, but if you are trying to launch it from within the zip file, it would be.

There is a text file with instructions in the zip file; follow those instructions to install it so that you can use it to create short-cut menuse within all of your Access applications.

Sorry, one more question, I did follow the instructions, and I can see under the Add-Ins in my program, do you have any instruction how to use it?