No.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
------------------------------------------------
プリントが済んだ後の下線を消す方法は考えてみてください。
以上です。
No.5
- 回答日時:
>だから自動改ページさせているので、改ページ場所は不定なんですよ~。
#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
出来ました!
ありがとうございます。
ただ、これだと改ページしないと、つまり一枚だけだと罫線がでませんよね。当たり前だけど。
一枚の場合でも自動的に改ページされるであろうあたりで出す方法はないですか?
No.4
- 回答日時:
こんにちは。
汎用性を考えるなら、
HPageBreakオブジェクトのLocationプロパティを使ってみたらどうでしょう。
HPageBreaks (HPageBreakオブジェクトのコレクション)
ActiveSheet.HPageBreaks.Count (改ページ総数)
ActiveSheet.HPageBreaks(1).Location.Row (一番目の改ページの行)
Location.Rowで改ページの行が分りますので、その上の行に線を引けばいいですよね。
以上です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
excel印刷で改頁をする時に罫線を引きたいのですが、良い方法ありますか?
Excel(エクセル)
-
Excelにて、ページ毎の外枠に罫線を設定する方法は?
Excel(エクセル)
-
印刷時、改ページごとの下枠にのみ罫線を引きたい
Excel(エクセル)
-
-
4
エクセル、ページをまたがった際の罫線
Excel(エクセル)
-
5
Excel で改ページをしたところの罫線が印刷されません;;
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードで定型レイアウトを崩さ...
-
ワードで、行替えしても行枠を...
-
ワードにて文章が左端にいきま...
-
Word 1ページ内を比較しやす...
-
2つのメモ帳を左右で開いてい...
-
Word(ワード)の「蛍光ペン」「...
-
差し込み印刷 Next Record
-
ワード文書の一部黒塗り
-
wordでグリッド線と表のズレ
-
エクセルで改ページ部分に自動...
-
ワードの特定の行を塗りつぶす...
-
wordの入力画面のわずらわしい...
-
wordでページの右側にメモ用の...
-
ワードの文章を左右に分けるには
-
文字の上に取り消し線つけるな...
-
Wordでこのような三角が出てく...
-
ワードに「URL」を貼り付けると...
-
エクセルで薄く透ける文字を入...
-
スケッチスタイルの有効化
-
印刷用紙の中央に点線をいれた...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードで定型レイアウトを崩さ...
-
ワードで、行替えしても行枠を...
-
WORD ページ右に脚注が欲しい
-
ワードにて文章が左端にいきま...
-
wordでページの右側にメモ用の...
-
ワードの文章を左右に分けるには
-
Word(ワード)の「蛍光ペン」「...
-
wordの入力画面のわずらわしい...
-
差し込み印刷 Next Record
-
wordでグリッド線と表のズレ
-
一太郎2007で、二つの文章を並...
-
2つのメモ帳を左右で開いてい...
-
文字の上に取り消し線つけるな...
-
Word 1ページ内を比較しやす...
-
ワード文書の一部黒塗り
-
エクセルで改ページ部分に自動...
-
Word2007で、最終行の下に赤線...
-
グーグルドキュメント(文書)...
-
ワードの特定の行を塗りつぶす...
-
Word2016 表の自動列幅調整
おすすめ情報