こんばんは。Takaです。今更ナンですが、一部訂正＆報告です。

【訂正】
コンポジットを使っている場合、先の方法ではうまくできないことが解りました。(汗)
（VerticalScrollPositionプロパティが拾えないんです）
前回いろいろなスクリプトで実験していたので、整理せずに報告していまいました。m(_ _)m

よく考えたら、コンポジットの場合は「グループが変わったらページ番号リセット」などありません。
よって、当初の describe(\"evaluate(\'page()\',0)\") だけでＯＫでした。

【最新報告】
先の強引な方法でやらねばならないのは、「グループが変わったらページ番号リセット」している時だけです。
結局こうなりました。

// 現在のページのみ印刷するサンプル
integer li_vpos, li_page

if Pos( dw_x.object.Datawindow.Syntax, \"resetpagecount=yes\" ) = 0 then
　// グループ改ページなし（コンポジット含む）
　li_page = Integer( dw_x.describe(\"evaluate(\'page()\',\" + string(dw_x.GetRow()) + \")\") )
else
　// グループ改ページあり
　dw_x.SetRedraw(false)
　li_vpos = integer(dw_x.object.Datawindow.VerticalScrollPosition)
　dw_x.ScrollToRow(0)
　li_page = 1
　do until integer(dw_x.object.Datawindow.VerticalScrollPosition) >= li_vpos
　　dw_x.ScrollNextPage()
　　li_page ++
　loop
　dw_x.SetRedraw(true)
end if

dw_x.object.Datawindow.Print.Page.Range = string(li_page)
dw_x.Print()

以上、お騒がせいたしました。