
以前にも幾つか同じような質問があるようなのですが、
例えば、
┏━━━━━━━━┓
┠────────┨
┠────────┨
┠────────┨
┠────────┨
┠────────┨
┠────────┨
┠────────┨
┗━━━━━━━━┛
と言った罫線付きの表を作成したとします。
その場合、ページ数が1なら問題は無いのですが、
2以上になって表がまたがってしまうと
┏━━━━━━━━┓
┠────────┨
┠────────┨
┠────────┨
┠────────┨
┠────────┨
┠────────┨
┠────────┨
┗━━━━━━━━┛
のように1枚目に印刷される表の下部が
設定された通りの太さの罫線になってしまいます。
2枚目の上部はシートで印刷タイトル指定するので良いのですが、
できることならば、1枚目の下部は表全体と同じ太さの罫線を
指定したいと思っています。
過去ログにマクロなどもあったのですが、なぜか実行しても
変化がありません。
EXCELのVer.は2002です。
どなたかわかるかたいましたらご回答お願い致します。
No.2ベストアンサー
- 回答日時:
マクロです。
罫線を設定したい範囲を選択後実行してみてください。全セルに罫線が設定
されます。
********
Sub kei()
Dim r As Range
Set r = Selection.Cells
r.Borders(xlDiagonalDown).LineStyle = xlNone
r.Borders(xlDiagonalUp).LineStyle = xlNone
With r.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With r.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With r.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With r.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With r.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With r.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
********
お手数かけてしまい申し訳有りません。
やはりマクロしかないようですね。
まだ、実行はしていませんが、使わせて頂きたいと思います。
ありがとうございました!!
No.3
- 回答日時:
>マクロなどもあったのですが
このご質問は例えばA1:A113にデータがあるとして
A1:A113を範囲指定して、罫線で外枠を太線にしました。
印刷した時に、1ページはA1からA56まで(私のプリンタでは)印刷しましたが、セルA56の下罫線が、外枠と同じ「太い罫線」にならないのがこまるということですよね。
このA56に当たるセルが見つけられれば外枠罫線の太さや色
連続線かなどはVBAで取れるので、線を引くことは易しい。
しかし印刷の改ページ場所で決まるこのセルはなかなか
普通のVBAでは捉え難い。A1:A56の間のセルの行高、上下余白によって色々に変るわけですからね。
Manualで改ページを入れる場合はPageBreakプロパティで行を取得できますが、プリンタにまかせる場合は、私程度では考えて色々やったがお手上げでした。
良い回答が出れば勉強したい。
「過去ログ」はどんなのでしたか。
>表全体と同じ罫線
この場合ならセルの上下左右にダブって(上のセルの下罫線と下のセルの上罫線とも引く)引いて置けば、1ページでは最終行の下罫線が印刷されますよ。(#1の回答)
私の実体験でのニーズは、上述の外枠太線の場合でした。
>印刷した時に、1ページはA1からA56まで(私のプリンタでは)印刷しましたが、セルA56の下罫線が、外枠と同じ「太い罫線」にならないのがこまるということですよね。
そうですそうです。
過去ログにあったのはやはりマクロでやるという方法と、ページ設定のシートタブで罫線にチェックを入れ、さらに表の害枠の罫線も通常の太さの罫線にして印刷するというものでした。
ただ、それですと、外枠を太線にしたさいには適用できないので、あまり実用的ではなかったのですが。
とにもかくにもご回答ありがとうございました!
No.1
- 回答日時:
質問への回答ではないですが、
罫線を設定するとき、
あ
-
い
上の場合、"あ"の下だけでなく、"い"の上にも
設定するような習慣をつけておけばいいかと思
います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】エクセルの1シートが2枚に分割されてしまうので印刷プレビューを押して閉 4 2022/12/13 13:12
- プリンタ・スキャナー Excelの罫線印刷 4 2023/05/18 06:53
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- ノートパソコン Windows11homeを新しく購入し、初期設定をしています。 前のパソコンでは無線のFAX機や有 5 2023/04/18 19:50
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Word(ワード) Officeのワードで段落の間に縦線を入れる方法。 1 2022/11/25 19:07
- Word(ワード) Word 段落罫線の上下のスペースを広げるには 3 2023/08/04 10:52
- PowerPoint(パワーポイント) パワーポイントでの印刷時の枠の表示について 1 2022/11/03 12:18
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- プリンタ・スキャナー コンビニのマルチコピーの性能について教えて下さい。 5 2023/05/10 03:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
A4用紙を8分割したい
-
Excelにて、ページ毎の外枠に罫...
-
印刷ページが急に数100ページに...
-
印刷時、改ページごとの下枠に...
-
エクセルで表に書いた黒の罫線...
-
Excel で改ページをしたところ...
-
EXCELの罫線をもっと細くしたい...
-
エクセルで 2ページ目の罫線...
-
[Excel]画面上で表示されても、...
-
エクセルファイルを印刷すると...
-
CubePdfにてPDFを作成すると罫...
-
Word差し込み印刷 ラベルの枠を...
-
【word】印刷レイアウトでグレ...
-
AccessからExcelに罫線付で出力...
-
office2016ワード内に表を作成...
-
excel印刷で改頁をする時に罫線...
-
wordで1ページに同じ文章を4つ...
-
ワード 罫線の角が切れてしまう
-
文章全体を四角の線で囲む方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
A4用紙を8分割したい
-
Excelにて、ページ毎の外枠に罫...
-
Excel で改ページをしたところ...
-
印刷ページが急に数100ページに...
-
[Excel]画面上で表示されても、...
-
エクセルで表に書いた黒の罫線...
-
エクセルで罫線の太さを変えて...
-
【word】印刷レイアウトでグレ...
-
wordで1ページに同じ文章を4つ...
-
印刷時、改ページごとの下枠に...
-
エクセルファイルを印刷すると...
-
ワード文書の枠線をどうしたら...
-
excel印刷で改頁をする時に罫線...
-
accessのレポートを20行固定に...
-
エクセルに勝手に罫線が出てき...
-
エクセルで透明の罫線を引けま...
-
EXCELの罫線をもっと細くしたい...
-
Wordのページ罫線(囲み)の下...
-
Wordで罫線が引きたい 罫線ツ...
おすすめ情報