印刷時、改ページごとの下枠にのみ罫線を引きたい

Question

印刷時、改ページごとの下枠にのみ罫線を引きたいのですが、
エクセルの設定でできないでしょうか？
（上枠には罫線を表示させたくないのです）
できない場合、実現できる方法はあるでしょうか？

よろしくお願いいたします。。。

lll49erlll · Accepted Answer

はい＾＾　とりあえずは、自分の自由になるファイル以外ＶＢＡは使わない方が
賢明です、他人のものに組み込むと、大変なことになります＾＾

ついでに もう一案ですが、

もし、ページ区切りが何行毎か決まっていて わかっていれば、条件付き書式で
罫線を 引くことも出来ます。

対象のセルの範囲を全て選択して、
条件付き書式で

「数式が」にして　式の欄に　=MOD(ROW(),40)=38　　として 書式の設定で
 下罫線を設定すればＯＫです、

これで １ページ目は３８行、それ以降は４０行ごと(38行，78,118,158,、、、）
に罫線が引かれます。　数値は、適当に変えてみてください。

蛇足でしたが、参考まで＾＾

lll49erlll · Answer

マクロでなら出来ると思いますが、、、改ページの位置を検出して、その行の上の行に罫線を引けばいいと思います。　下の例ではA列(1列目)で最終行を検出して、最終行までの改ページの上の行に　中太の罫線をA列からz列(26列目)まで下罫線を引きます。　　最終行を見つける列（この例ではA列）と　　シート名や罫線の太さ、罫線の列は環境に合わせて修正してください。　　標準モジュールのOption Explicitの直下に以下を貼り付けてください Dim 改頁行 As Long Dim 最終行 As Long Dim シート名 As String Dim I As Long Sub 改頁設定() シート名 = "Sheet1" '←実際のシート名を If ActiveSheet.Name <> シート名 Then Exit Sub 最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'データ(A列)の最終行 Application.ScreenUpdating = False For I = 1 To ActiveSheet.HPageBreaks.Count 改頁行 = ActiveSheet.HPageBreaks(I).Location.Row If 改頁行 > 最終行 Then: Exit For '　　 A列(1)からZ列まで下罫線を引く With Range(Cells(改頁行 - 1, 1), Cells(改頁行 - 1, 26)).Borders(xlEdgeBottom) .LineStyle = xlContinuous '←実線、破線=xlDash、なし=xlLineStyleNone .Weight = xlMedium '←中線、極細=xlHairline、細=xlThin、太=xlThick End With Next With Range(Cells(最終行, 1), Cells(最終行, 26)).Borders(xlEdgeBottom) .LineStyle = xlContinuous '←実線、破線=xlDash、なし=xlLineStyleNone .Weight = xlMedium '←中線、極細=xlHairline、細=xlThin、太=xlThick End With Application.ScreenUpdating = True End Sub '-------------------End Subまで貼り付け以下は引いた罫線を消すためのものです。　引いた罫線と同じ太さの罫線を見つけて消します。　・・・).Weight = xlMedium Then　の xlMediumは上記の例で引いたものと　同じにします。 Sub 罫線削除() シート名 = "Sheet1" '←実際のシート名を If ActiveSheet.Name <> シート名 Then Exit Sub 最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'データ(A列)の最終行 Application.ScreenUpdating = False For I = 1 To 最終行 If Range(Cells(I, 1), Cells(I, 26)). _ Borders(xlEdgeBottom).Weight = xlMedium Then Range(Cells(I, 1), Cells(I - 1, 26)). _ Borders(xlEdgeBottom).LineStyle = xlLineStyleNone End If Next Application.ScreenUpdating = True End Sub どちらも標準モジュールにコピーしてください。上の「改頁設定」はThisWorkbookのモジュールに以下をコピーすると、印刷またはプレビューする時に自動で走ります。先に印刷プレビューを見てください Private Sub Workbook_BeforePrint(Cancel As Boolean) 改頁設定　'　印刷前に改頁設定へ飛ぶ End Sub 消す方は、印刷が終わったことを検知出来ないのでどうしても手動で起動になるでしょう。

noname#164823 · Answer

改ページプレビューの青い点線の上に、線を引く事により、
ご希望の状態になると思います。

１本、線をShft＋Altを押しながら引きます。Altを押しながら引くと
グリッド線の上にぴったり乗ります。

線種・色を任意にして下さい。　その後、この線を選択し、右クリック。
「オートシェイプの書式設定」→「プロパティ」の「オブジェクトの位置関係」
「セルに合わせて移動やサイズ変更をしない」にチェックします。
これで、行の追加や削除をしても同じ位置に線が乗ります。

他の線はCtrlを押しながらドラッグ＆ドラッグでコピーして下さい。ウィンドウを
縮小して作業すると楽です。

印刷プレビューで確認し、用紙からはみ出るようでしたら、Ctrlを押しながら
カーソルキーで微調整して下さい。多少青い線の上に配置するとうまく印刷
されます。

noname#164823 · Answer

「図形」の「直線」ではだめでしょうか。応急的な方法で、データの
追加や削除があると無理ですが。

ちょうどページの最下端に乗るように引き、印刷プレビューを見ながら、
良い位置に配置します。データが最終行まで入っている場合は、余白を
減らし、1行挿入し、この行高を狭くします。この行に乗るように配置すれば
印刷できると思います。

最終ページのデータが少なければ、ページの最後の方のセルに、1つだけ
何か文字を入力して、色を「白」にすれば、ここまでデータが入った事になり、
線が表示されます。

ROSHI_NYAN · Answer

無理やりですが、「ページ設定」の「フッター編集」に「―」を幅の分入力すればでると思います。「―――――――」こんな感じで。
「左側」「中央」「右側」のどれかに一行分入れればよいと思います。
「―」はキーボードの文字ではなく、文字一覧から入力したものです。
細かい設定はできないかもしれませんが、とりあえずでると思います。

印刷時、改ページごとの下枠にのみ罫線を引きたい

はい＾＾ とりあえずは、自分の自由になるファイル以外ＶＢＡは使わない方が

この回答への補足

マクロでなら 出来ると思いますが、、、

この回答への補足

改ページプレビューの青い点線の上に、線を引く事により、

「図形」の「直線」ではだめでしょうか。

この回答への補足

無理やりですが、「ページ設定」の「フッター編集」に「―」を幅の分入力すればでると思います。

この回答への補足

似たような質問が見つかりました

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

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

はい＾＾　とりあえずは、自分の自由になるファイル以外ＶＢＡは使わない方が

マクロでなら出来ると思いますが、、、