ノップーさん、こんにちは。

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
＞よろしくお願いいたします。