aceさん、こんにちは。

返事が遅くなり、申し訳御座いません。
半分あきらめていました。

今回いただいたアドバイス、まだ実行していませんが、試してみます。

有難う御座います。

＞jujuさん、おはようございます。
＞
＞PB11ですが
＞dw_1のconstructorに
＞
＞String stRet
＞stRet = this.Modify( \"DataWindow.Header.Height=~\"0~tIf( Page() = 1, 0, 875)~\"\")
＞MessageBox(\"確認\",StRet)
＞
＞と記載したところ、戻り値は正常ですが、残念ながら確かに動作はしませんでした。
＞
＞そこでなのですが、印刷するスクリプトを、
＞
＞dw_1.SetRedraw(FALSE) //データウィンドウの変化をユーザーに見せない為
＞dw_1.Modify(\"DataWindow.Print.Preview=~\"YES~\") //プレビューモードにしてページ数を取得する為
＞
＞dw_1.Modify( \"DataWindow.Header.Height=~\"875~\"\")
＞dw_1.Modify(\"DataWindow.Print.Page.Range=~\"1~\"\")
＞print()
＞
＞//最終ページが10ページだとすると
＞//最終ページ数は計算カラムを作成しPageCount()をいれ取得すればよいと思います
＞dw_1.Modify( \"DataWindow.Header.Height=~\"0~\"\")
＞dw_1.Modify(\"DataWindow.Print.Page.Range=~\"2-10~\"\")
＞print()
＞dw_1.Modify( \"DataWindow.Header.Height=~\"875~\"\")
＞dw_1.Modify(\"DataWindow.Print.Preview=~\"NO~\") //プレビューモードを解除
＞dw_1.SetRedraw(TRUE) //データウィンドウの変化をユーザーに見せない為
＞
＞としたらいかが？
＞
＞
＞