Dynamically Controlling Document Tabs

[tmartin]

I have developed a Kiosk interface for an insurance database application. I have turned off the Ribbon and most controls. I would like to be able to turn on document tabs when I generate a report in view mode. If there were document tabs at the top the user could just get rid of the window.

If I turn on the document tabs each windows that is present is under a different tab until they navigate backwards.

The other option is to always print the report but would like to view it first.

[ItsMe]

You may be restricted by the Kiosk's monitor and available real estate. I combat the same issue by hiding Tabs and exporting reports as PDF files. I do not use Preview for Reports. If I do not have overlapping windows, I hide tabs.

[tmartin]

I ended up using this VBA Routine and then added the menu option to the report under Other. The baseline code then just
implements the DoCmd.OpenReport (...) and pops up a message box telling the user they have to right-click to save or print the report.
Its non-standard but not too confusing to the user

Private Sub createNewMenu()
Dim cmbRightClick As Office.CommandBar
Dim cmbControl As Office.CommandBarControl

' Create the shortcut menu.
Set cmbRightClick = CommandBars.Add("cmdReportRightClick", msoBarPopup, False, True)

With cmbRightClick

' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 2521, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Quick Print"

' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 15948, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Select Pages"

' Add the Page Setup... command.
Set cmbControl = .Controls.Add(msoControlButton, 247, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Page Setup"

cmbControl.BeginGroup = True

' Add the PDF or XPS command.
Set cmbControl = .Controls.Add(msoControlButton, 12499, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Save as PDF/XPS"

cmbControl.BeginGroup = True

Set cmbControl = .Controls.Add(msoControlButton, 106, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Close Report"
End With

Set cmbControl = Nothing
Set cmbRightClick = Nothing
End Sub

[ItsMe]

Cool, that should look pretty clean.