エクセル印刷ページ行数指定

質問

エクセル印刷ページ行数指定
A1:F1000程度のデータがあります。
A4サイズ縦に
１ページ３７行で改ページしたいと思います。
1行目はタイトルです。
A:Aの文字データ（半角英数字）の左から２文字目もしくは３文字目が変わると改ページするようにしたいです。
その場合データが1ページ３７行に満たない場合でも改ページし３７行まで空白（罫線あり）で出力させたいのですが。

回答No.2

chayamati · ベストアンサー

先ず罫線無で印刷して、1ページ分の同じピッチの罫線だけのものを重ね打ちします

計算無の印刷
１．1行目のタイトルは、ページレイアウトの印刷タイトルのタイトル行に設定します
２．改ページの挿入は次のマクロを実行します
Sub 改ページ挿入()
Dim A
Dim i, j As Integer
ActiveSheet.ResetAllPageBreaks
j = 0
i = 2
A = Mid(Range("A" & i), 2, 2)
For i = 2 To 3000
j = j + 1
If (j > 37) Or (A <> Mid(Range("A" & i), 2, 2)) Then
Range("A" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
j = 0
A = Mid(Range("A" & i), 2, 2)
End If
Next i
End Sub

補足

2ページ以降1行多く改ページされます。
1ページ目は、タイトル1行入れて38行で改ページされますが
2ページ以降は、タイトル1行入れて39行で改ページされてしまいます。

回答No.1

keithin

＞改ページし３７行まで空白（罫線あり）で出力させたい

この最後の一言が、エクセル（の一般機能）ではできない内容になります。

あとは、あなたの印刷したい表がどの行も同じ高さなのか、行ごとに高さが違っても３７行とにかく突っ込みたいのか、具体的にどういう状況なのかによっても難易度が変わってきます。

出来ない事は諦めて手早く結果を出す方を優先できるなら、次のような手順が考えられます。
１．印刷ページプレビューで下余白を調整し、成り行きで３７行で改ページするように調整する
２．Ｇ列に「２文字目と３文字目」をMID関数で抜き出す
３．ご利用のエクセルのバージョンが不明ですがデータメニュー（データタブ）の集計(小計）を開始、Ｇ列を基準として小計行を挿入させ、その際に「グループごとに改ページを挿入する」。

もしもカンペキにヤリタイようにしかやりたくないのでしたら、ごりごりとマクロを組んで改ページと余計な空白行を挿入してやるしか、方法はありません。この方向では特にフォローはしませんので、状況に応じて前述のような不明点を補足の上で、別途ご相談を投稿してみて下さい。

お礼

ありがとうございます。

行幅はすべて同じで6~7mmかと。

excel2007 です。