|
いろいろ検索をして考えましたが、つまづきました。
ご教示ください。
改ページでの罫線を実行するマクロです。
Sub PrintLine()
Dim C As Long
Dim myR As Long
With Worksheets(3)
For C = 1 To .HPageBreaks.Count
myR = .HPageBreaks(C).Location.row - 1
With .Range(.Cells(myR, 1), .Cells(myR, 7)).Borders(xlEdgeBottom)
.lineStyle = xlContinuous
.Weight = xlThin
End With
With .Range(.Cells(myR + 1, 1), .Cells(myR + 1, 7)).Borders(xlEdgeTop)
.lineStyle = xlContinuous
.Weight = xlThin
End With
Next C
End With
End Sub
myR = .HPageBreaks(C).Location.row - 1のところでエラー9「インデックスが有効範囲にありません。」と言うエラーが発生します。
しかし、印刷プレビューを見ると2ページ目までは罫線が引かれており、3ページ目以降には罫線が引かれていません。
このマクロを実行する前に別のマクロで書類を作成しています。
列数は7列で固定ですが、行数は書類により可変します。
1ページ33行ですが、見出しに使用している行が4行あります(実質29行)
よろしくおねがいします。
|
|