このようなことを試してください。 運が良ければ、フォントも小さいので、各レポートは1ページにとどまります...
// use the journal to accumulate the reports.
// if they fit on a single page, the page count will be correct.
dt = Open( "$sample_data/big class.jmp", "invisible" );
report = dt << Distribution( Continuous Distribution( Column( :weight ) ), Nominal Distribution( Column( :age ) ) );
report << journal;
report << closewindow;
report = Bivariate( Y( :weight ), X( :height ), Fit Line );
report << journal;
report << closewindow;
report = Oneway( Y( :height ), X( :sex ), Means( 1 ), Mean Diamonds( 1 ) );
report << journal;
report << closewindow;
Close( dt, nosave );
// add the header and page breaks to the journal
j = Current Journal();
listOfReports = j << child;
nReports = N Items( listOfReports );
// add page breaks
For( i = N Items( listOfReports ), i >= 1, i--,
Insert Into( listOfReports, Page Break Box(), i )
);
// and the header
headerPage = V List Box(
Text Box( "Big Report" ),
Text Box( Format( Today(), "yyyy-mm-dd" ) ),
Text Box( Char( nReports ) || " pages (reports)" )
);
Insert Into( listOfReports, headerPage, 1 );
// make the PDF from the journal
j<<SAVEPDF></SAVEPDF>
Firefoxを使用してPDFを開きました
編集：あなたもこれが欲しいかもしれません：
// make the PDF from the journal
j << setwindowtitle( " " ); // hide the title with a space
j << setpagesetup( {Margins( {0.75, 0.75, 0.75, 0.75} ), Scale( 1 ), Portrait( 1 ), Paper Size( "Letter" )} );
j << savePDF( "$desktop/report.pdf" );
ページ設定が役立つ場合があります。ウィンドウタイトルを削除すると、見栄えがよくなります。
@davidbarbour
