グッドデザイン賞を受賞したウォーターサーバー >>

エクセルで帳票をプリントする際、データの量によっては自動改ページされ複数枚になります。
その際、改ページされる最後のところに線を自動で引くことは可能でしょうか?
次ページの先頭には線は不要ですが、3ページになる場合は次ページの最後に線が必要です。

フッター部分の表記とデータ部分を明確に区別するためです。よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (6件)

こんばんは。



●一頁しかない場合で
1.行数が一頁に満たない時
2.行数が一頁にぴったりの時

●複数頁ある場合で
1.最後の頁の行数が頁に満たない時
2.最後の頁の行数が頁にぴったりの時

上記のことも考慮し、それぞれの頁のフッターの直ぐ上の行に下線を引くのですよね。
新しいシートで下記のコードをお試あれ。


使用列は、A-Dとする。
---------------------------------------------

Sub Test()

 Dim BreakSu As Integer
 Dim BreakSu2 As Integer
 Dim B As Integer
 Dim Rw As Long
 Dim LastRow As Long

 LastRow = Range("A65536").End(xlUp).Row

 BreakSu = ActiveSheet.HPageBreaks.Count

 Range(Cells(LastRow + 1, "A"), Cells(LastRow + 100, "A")) = "ABC"

 BreakSu2 = ActiveSheet.HPageBreaks.Count

 For B = 1 To BreakSu + 1
  Rw = ActiveSheet.HPageBreaks(B).Location.Row - 1
  With Range(Cells(Rw, "A"), Cells(Rw, "D")).Borders(xlEdgeBottom)
   .LineStyle = xlContinuous
  End With
 Next B

 Range(Cells(LastRow + 1, "A"), Cells(LastRow + 100, "A")) = ""

 ActiveSheet.PrintPreview
End Sub
------------------------------------------------

プリントが済んだ後の下線を消す方法は考えてみてください。

以上です。
    • good
    • 0
この回答へのお礼

すばらしい!
後ろに100行追加しちゃうわけですね、なるほどぉ・・・。

ありがとうございました。

お礼日時:2005/04/05 09:12

>だから自動改ページさせているので、改ページ場所は不定なんですよ~。



#2です。力技ですが、、、

VBAマクロでやるなら、HPageBreaks コレクションを調べることで水平改ページの位置がわかります。下記サンプルは水平改ページの位置(行番号)をイミディエイトに表示するだけですが、実際にはセル罫線を引く処理を挟んでやれば良いかと思います。

例えば、

Intersect(Columns("A:E"), Rows(Pb.Location.Row)) _
  .Borders(xlEdgeTop).Weight = xlThin

こんな感じでしょうか。

しかし、『どこまで自動的なのか』という問題があります。

ご紹介した方法は、データ修正の度に罫線の引きなおし作業が発生します。この点についてもコーディングする必要がありますね。ご参考までに。


Sub Sample()

  Dim Pb As HPageBreak
  For Each Pb In ActiveSheet.HPageBreaks
    Debug.Print Pb.Location.Row
  Next Pb

End Sub
    • good
    • 0
この回答へのお礼

出来ました!
ありがとうございます。

ただ、これだと改ページしないと、つまり一枚だけだと罫線がでませんよね。当たり前だけど。
一枚の場合でも自動的に改ページされるであろうあたりで出す方法はないですか?

お礼日時:2005/04/04 18:02

こんにちは。


汎用性を考えるなら、
HPageBreakオブジェクトのLocationプロパティを使ってみたらどうでしょう。

HPageBreaks (HPageBreakオブジェクトのコレクション)

ActiveSheet.HPageBreaks.Count (改ページ総数)

ActiveSheet.HPageBreaks(1).Location.Row (一番目の改ページの行)

Location.Rowで改ページの行が分りますので、その上の行に線を引けばいいですよね。

以上です。
    • good
    • 0
この回答へのお礼

HPageBreakオブジェクトのLocationプロパティとは初めて聞いた呪文です。
ありがとうございました。

お礼日時:2005/04/04 18:00

タイトル(項目)を各頁に印刷するようにすれば可能かと思います。

ファイル ~ ページ設定でシートタブから行列どちらでも指定できます。

この回答への補足

行や列の印刷タイトルのことですか?

これだとヘッダーとの境のところにはもってこれますが、フッダーでは無理ではないでしょうか?

補足日時:2005/04/04 17:57
    • good
    • 0

条件付書式を利用してみてはどうですか?



例えば、1ページ60行で改ページするように印刷設定されているのであれば、

[数式が] =MOD(ROW(),60)=0

で罫線書式から下線を設定します。

この回答への補足

ありがとうございます。
1ページの行数が決まっていればそれでいいんですが、データによってはセル内で折り返し表示させるため、行の高さが変わるんです。
だから自動改ページさせているので、改ページ場所は不定なんですよ~。

補足日時:2005/04/04 16:21
    • good
    • 0

難しい方法は知りませんが、フッターを使っているんであればそれを利用したらいかがでしょう。


フッターの1行目をスペースで連打し、フォントの設定で架線を選びます。
これで下線だけが表示され、丁度データとフッターの境になるのではないですか?

この回答への補足

その方法をためしました。
既に文字数がたくさん入っているためか、エラーになってしまいます。

空白のページでためしたら、短い線は引けましたが、いくらスペースを打っても長くなりません。

補足日時:2005/04/04 15:16
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qexcel印刷で改頁をする時に罫線を引きたいのですが、良い方法ありますか?

excel印刷で20枚ほど印刷しています。

大分類・中分類・明細と言った感じの一覧表です。

大分類がA列で100行ほどを枠線で囲っています。中分類がB列で20行程を枠線で囲ってタイトルを入れています。
明細は一行づつで、罫線で囲っています。
セル結合はしていません。

そこで、印刷すると最終行の大分類・中分類で、下部線が印刷されない頁が出てきます。明細列は印刷されます。
(罫線自体excelに入ってないですから当然ですが。)

印刷する為に、罫線を入力すると画面での見た目が良くない為入れたくないです。

そこで、改頁前の最終行に罫線を印刷するような設定をしたいのですが、良い方法は無いでしょうか?
<出来ればマクロは使いたくないです。>

宜しくお願い致します。

Aベストアンサー

印刷プレビューからページ設定を選択し、シートタブの中の枠線をチェックしてみてください。多分お望みの状態になると思います。一ページの最後の行と2ページの最初の行に罫線が入ります。


人気Q&Aランキング