Chicchiさん、こんにちは。

ご回答ありがとうございました。
私の質問の仕方が悪かったのですが、EXCELマクロの記述ではなくて
PBのスクリプト内での記述方法に関しての質問でした。
わかりにくい文章で申し訳ありませんでした。
もしPBのスクリプトでの記述の方法をご存知でしたら
教えていただけないでしょうか。
よろしくお願いいたします。

＞ノップーさん、こんにちは。
＞
＞Excel の自動マクロで改ページのコードを編集モードで調べると、次のように記録されています。
＞
＞\' セル A3 の上に改ページを設定する場合
＞Range(\"A3\").Select
＞ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
＞
＞ノッブーさんのコードを Excel のマクロとして実行すると、「アプリケーション定義またはオブ
＞ジェクト定義のエラーです」と表示されますので、やはり構文に誤りがあるのではないでしょうか。
＞
＞＞PB7.0でDBのデータを読み込み、Excelに貼り付ける処理を行っています。
＞＞一件づつデータの貼り付けと罫線を引いたあとに、指定した行まで来たら改ページを
＞＞したいのですが記述方法が間違っているようでエラーになってしまいます。
＞＞ご存知の方がいらっしゃいましたら教えていただけないでしょうか。
＞＞
＞＞記述は以下のようにしています。
＞＞Constant Long xlNone = -4142
＞＞aole_data.sheets.Range(1).PageBreak = xlNone
＞＞よろしくお願いいたします。
＞
＞