Custom Ribbon Problem in Runtime

[Richard Kohler]

I have a customer ribbon that is dynamically created on the fly based upon
the user's profile. Everything works great except for one item. I want the
user to be able to e-mail a report while in print preview. Unfortunately, the
section of the ribbon that normally displays the mail icon is blank. This
only happens in the runtime version that I deploy to all users. Any help
would be appreciated.

RK

 

[Albert D. Kallal]

Simply write some code to do this:

Add the follwing group to your existing custom ribbion for reports

<group id="Options" label="Report Options">
<button id="button1" label="Email" onAction="=AskReportSend()"/>
</group>

So, the abov will call your VBA code.

That code can look like:

Public Function AskReportSend()

' this is the email option included on every report
Dim rptActiveReport As Report
Dim strEmail As String
Dim strSubject As String
Dim strBodyText As String

strSubject = ""
strBodyText = ""
strEmail = ""

Set rptActiveReport = Screen.ActiveReport
DoCmd.SendObject acSendReport, rptActiveReport.Name, _
acFormatRTF, strEmail, , , rptActiveReport.Caption, strBodyText,
True


End Function

 

[Richard Kohler]

Thanks Albert, I will give this a try. However, I do believe this is a
runtime bug of some sort.