|
こんにちは。かみちゃん です。
>myR = .HPageBreaks(C).Location.row - 1のところでエラー9「インデックスが有効範囲にありません。」と言うエラーが発生します。
Excelのバージョンによるのかもしれませんが、
HPageBreaks または VPageBreaks.Location 使用時の "インデックスが有効範囲にありません" エラーについて
http://support.microsoft.com/kb/210663/ja
に原因と対処策が載っています。
ちなみに、少し調べてみると、以下のような対処も載っていました。
改ページ位置のセルを画面に表示して、改ページ位置を認識させる必要があります。
次のいずれかの操作を 1 度実行します。
・改ページされているセルを画面に表示
・ZOOM で縮小したあと元に戻す
・印刷プレビューを実行する
ということで、上記URLの対処策か、具体的に、以下のようなコードを追加することで対応できると思います。
With Worksheets(3)
With .UsedRange
Application.Goto .Cells(.Rows.Count, .Columns.Count)
Application.Goto .Range("A1")
End With
|
|