Do you absolutely need to use New Data Box to put the table in there? If you journal the table as just a display box table, you can pretty easily get it to display the whole table in the pdf. Of course, you lose everything in the left pane of the data table window, but I wasn't sure you would really want that anyway.
nw = New Window("Reports", <<Journal,
hlb = H List Box(
lub = Lineup Box(
N Col( 1 ) ,
ob_sum = Outline Box( "Statistic Summary"),
ob_trend = Outline Box("Boxplot")
);
);
);
rpt = Current Data Table() << Get As Report;
ob_sum << Append(rpt);
You might have to manually enlarge the table to get rid of a scroll bar in the Journal by dragging the bottom edge down, but once that is gone, it will display the whole table in the .pdf.
***Edit: I found an easy way to get rid of the scroll bar with JSL. Replace the last 2 lines with this:
ob_sum << Append( rpt = Current Data Table() << Get As Report;);
rpt[TableBox(1)] << Set Scrollable(0,0);
-- Cameron Willden