vba改ページの最大の水平印刷位置からひとつ前のキーワードまで改ページ位置を移動する方法

Question

[1] 表題
[2] 本文
[3] 表題
[4] 本文
[5] 表題
[6] 本文

---

という表題と本文の1セットが繰り返し入力されているデータがあり、改ページプレビューをみると

---

[1] 表題
[2] 本文
[3] 表題
[4] 本文
[5] 表題
－－－－－－－－－－－－改ページ
[6] 本文

---

という風に改ページ位置が自動で設定されますので、

---

[1] 表題
[2] 本文
[3] 表題
[4] 本文
－－－－－－－－－－－－改ページ
[5] 表題
[6] 本文

---

という風に特定のキーワードの上に改ページ位置を移動する方法

これを数十回繰り返して、なるべく多くの情報を１ページに収めたいです。
どうすればいいでしょうかご教示ください。

Answer 1

入力されているセルの内、
どれが表題かわかりますか？
あと、表題と本文のセルの位置関係も教えてください。

Answer 2

いろいろ調整必要ですが
まずは、表題の行判断できるかです。

下記は「表題」文字で判断していますが
高さが決まっている、罫線が決まっている
等どうなりますかね。？

Sub tes()
Dim WB As Workbook
Dim Ws As Sheet1
Set WB = ThisWorkbook
Set Ws = WB.Sheets(1)

Dim Vcnt As Long  '現在の高さ計
Dim Vmst As Long  '一ページ分の高さ計
Dim VcntBfo As Long 'ひとつ前の表の高さ計
Dim MaxRow As Long 'A列の最終行
Dim r2 As Long  'ひとつ前の表題

Vmst = 702
MaxRow = Ws.Cells(Rows.Count, 1).End(xlUp).Row
r2 = 1
Vcnt = 0
Vcnt1 = 0

For r = 1 To MaxRow
    'If InStr(Cells(r, 1).Value, "表題") > 0 Then Exit For
    If Cells(r, 1).Value = "表題" Then
        If Vcnt + VcntBfo + Vcnt1 > Vmst Then
            'Rows(r2).PageBreak = xlPageBreakManual '１個前の表題位置
            Ws.Cells(r2, 1).PageBreak = xlPageBreakManual
        End If
        Vcnt = Vcnt + Vcnt1
        VcntBfo = Vcnt1
        Vcnt1 = 0
        r2 = r
    End If
    Vcnt1 = Vcnt1 + Cells(r, 1).RowHeight
Next

End Sub

Answer 3

VPageBreaks オブジェクトというものがあるので、

• 当該のセルが表題なのか本文なのか
• 当該のセルが何ページ目に印刷されるのか
• 当該のセルが表題だったときペアになる本文は同じページに含まれているか
• 同じページに含まれていなければ改ページを挿入

みたいな処理を繰り返せばできるかもしれません
あわせてループ処理のことも考慮に入れるようにしてください

Answer 4

ﾏｸﾛの記録で
1．改ﾍﾟｰｼﾞにしたい場所を選択
2．右ｸﾘｯｸし「改ﾍﾟｰｼﾞの挿入」
3.印刷追加したい所を選択し右ｸﾘｯｸし「印刷範囲に追加」を選択
4.ﾏｸﾛの記録を終了
5.解読

Comments

[OyaHiro]

1ページ1表題であれば即時解決しますが、表題毎にサイズが違い1ページになるべく多くの情報を収めるところで苦労しています。

[退会済みユーザー]

1と2と3を繰り返すマクロを組めば
出来ますよ
3はR1C1形式での指定なので
RANGE(CELLS(先頭行、先頭列)、CELLS(決めたページの末端行、末端列)).ADDR で取得