印刷範囲「シート.HPageBreaks」を参照した場合に
「実行時エラー'9' インデックスが有効範囲にありません」という
エラーが発生する場合がある。

主に印刷範囲が広い時に発生するようだ。

これはExcelのバグのようなものらしい。

解決策としては、参照前に
  (a) 当該セルの末尾(右下)に移動する
  (b) それを描画する
という二つの条件を満たせばいいとのこと

つまり、こんな感じにすればよい。
┌──────────────────────────────────────┐
│Application.ScreenUpdating = True                                     ' 描画│
│Application.GoTo シート.Cells(1, 1).SpecialCells(xlCellTypeLastCell)  ' 移動│
│' そして、シート.HPageBreaksを参照                                          │
└──────────────────────────────────────┘