Select a Report to Print

Description

The following Xdialog box provides a convenient list of available reports to print.

DIM SHARED a_reports[100] as C
DIM SHARED varC_result as C
report_list = a5.Report_Enum(2)
report_list = sortsubstr(report_list,crlf())
a_reports.initialize(report_list)
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Select a Report to Print",<<%dlg%
{frame=1,2:Select a Report to Print}
{sp=.5}
{lf=1}
{region}
[.80,15reportlist^#a_reports!select_report];
{endregion};
{region}
{justify=center}
[.80,1report_name^#reportlist]
{lf=1};
{sp=3}<*15=ok_button_label!OK>{sp=2}<15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button="select_report" then
    a_dlg_button=""
end if
if a_dlg_button = "OK" then
    if (report_name <> "") then
        preview_report(report_name)
    end if
end if
%code%)

Thanks To 

Keith Hubert