Printing a Viewed Report using Runtime

[cjowsey]

I have a problem which is frustrating me enormously. I am developing an ADP to use the runtime version of Access. Several reports have been designed to be shown in preview mode and printed if the user requires. I have created a print menu to bring up with the reports (runtime disables the standard Print Preview right click menu). Now I am having real trouble getting the report to take the focus and keep the menu on top at the same time.

Has anybody else been through this situation before? If so, how did you solve it?

 

[humbleprogrammer]

How did you create your menu? Is it a form or a menu bar?

http://www.gosmart4u.com/

 

[cjowsey]

It is a menubar. I used the code below

'****************************************************************
' This procedure creates a new toolbar.
'****************************************************************
Public Sub AddPrintCommandBar()
    Dim CBar As CommandBar
    Dim CBarCtl As CommandBarControl
   
   On Error GoTo AddNewCB_Err

    ' Create a new floating toolbar and make it visible.
    Set CBar = CommandBars.Add(Name:="Print Options", _
                Position:=msoBarFloating, MenuBar:=False, Temporary:=True)
    CBar.Visible = True
    
    With CBar
        ' Create the buttons.
        Set CBarCtl = .Controls.Add(msoControlButton, CommandBars("File") _
            .Controls("Page Setup...").ID)
         .Controls(1).Style = msoButtonIconAndCaption
        Set CBarCtl = .Controls.Add(msoControlButton, CommandBars("File") _
            .Controls("Save As...").ID)
         .Controls(2).Style = msoButtonIconAndCaption
        Set CBarCtl = .Controls.Add(msoControlButton, CommandBars("File") _
            .Controls("Export...").ID)
         .Controls(3).Style = msoButtonIconAndCaption
         .Controls(3).Caption = "Export..."
        Set CBarCtl = .Controls.Add(msoControlButton, CommandBars("File") _
            .Controls("Print...").ID)
         .Controls(4).Style = msoButtonIconAndCaption
         .Controls(4).OnAction = "ReportPrint"
    End With
    
    Exit Sub
   
AddNewCB_Err:
   MsgBox "Error " & Err.Number & vbCr & Err.Description
   Exit Sub
End Sub

 

[humbleprogrammer]

It may be because you have your position set to floating (msoBarFloating). Try changing it to msoBarTop or msoBarBottom. Let me know if that doesn't work.

http://www.gosmart4u.com/

 

[cjowsey]

I've got to use a floating or pop up menu because the user wants all the forms to be fullscreen (docmd.maximise). This means I don't have an MDI frame to dock on so top and bottom menus can't be seen.

Thanks for your help.