VBAで90列ごとに改ページをする方法について

Question

VBAの改ページについて質問です。
アクティブシートに90列ごとに改ページを挿入したいです。

現在このコードで400エラーが出てしまい、
74列目で改ページが挟まれてしまうのですが、どうしたら良いのでしょうか。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
Dim e As Long
i = Range("A65536").End(xlUp).Row
ActiveSheet.ResetAllPageBreaks

For e = 1 To i Step 90
 ActiveSheet.HPageBreaks.Add Before:=Cells(e, 1)
Next

ActiveWindow.View = xlPageBreakPreview
End Sub

初歩的な質問だとは思いますが、どうぞよろしくお願い致します。

Answer 1

HPageBreaks.Add の引数 Before に渡す Range オブジェクトは、1列目は指定できないようです。
90列ごとに改行を入れるならば、変数 e に入れている初期値を 1 から 90 に変更することで、処理は流れると思います。

一応、以下に示すマクロは動きましたが、sugar_yas さんの言うとおり、印刷範囲を指定していないため、9列ごとに改行が入っています。

'' 使い方
'' Worksheet_SelectionChange "Sheet2"
Public Sub Worksheet_SelectionChange(wsName As String)
Dim i As Long
Dim e As Long

'' 列方向のループの最大値に、行の最大を取っている。
'i = Range("A65536").End(xlUp).Row
i = 65536

'ActiveSheet.ResetAllPageBreaks
ThisWorkbook.Worksheets(1).ResetAllPageBreaks

' e の初期値を 90 に変更。
For e = 90 To i Step 90
  With ThisWorkbook.Worksheets(wsName)

    ' Range 指定する場合はこちら。
    '.HPageBreaks.Add .Range(.Cells(e, 1), .Cells(e, 1))
    .HPageBreaks.Add .Cells(e, 1)

  End With
Next


ActiveWindow.View = xlPageBreakPreview

End Sub

Comments

[wasabiosushi]

ご回答ありがとうございます。皆様に頂いたご回答を元に、完璧ではないですが使えるマクロを作ることができました。とても助かりました。本当にありがとうございました。

Answer 2

下記のソースで実行したところ、とりあえずは10行ごとに改ページする事に成功しました。
e = 1となっている場所で、恐らく1行目の前に改ページを入れようとしたためにエラーとなっている様に見えます。

74列目で改ページが挟まれてしまう

ですが、もしかしたら印刷可能な範囲を超えているのかもしれません。
私の場合は行の高さを狭くすることで、90行ごとの改行にも成功しました。

Sub ボタン1_Click()
    Dim i As Long
    Dim e As Long
    RowCount = Range("A65536").End(xlUp).Row
    ActiveSheet.ResetAllPageBreaks
  
    '10行ごとに改ページを挿入(90の場合は、iの初期値を91でSTEP 90とすればOK)
    For i = 11 To RowCount Step 10
        '改ページを挿入
        ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)
    Next
    ActiveWindow.View = xlPageBreakPreview
    
End Sub

Comments

[wasabiosushi]

ご回答ありがとうございます。皆様に頂いたご回答を元に、完璧ではないですが使えるマクロを作ることができました。とても助かりました。本当にありがとうございました。

Answer 3

全然、試してませんが
msdn
を見た感じでは、先に印刷範囲を設定しないとダメのように見受けられます。

Comments

[wasabiosushi]

ご回答ありがとうございます。皆様に頂いたご回答を元に、完璧ではないですが使えるマクロを作ることができました。とても助かりました。本当にありがとうございました。