EXCELで外枠は太線、各行の区切り線は細線を
使用した表を作っています。
これがかなり大きな表ですので、印刷すると
かなりの枚数になるんですが、各ページの最終行
(下の枠線)は当然細線になって、上、右、左の
太い枠線とのバランスが悪くなってしまいます。
改頁される行の区切り線のみ手作業で
太線に変更していってもいいのですが、
行を挿入した時とか行の高さを変更したときに
ズレてしまって大変です。
改頁行の罫線のみ太線に変更するような
VBを作成することは可能でしょうか?
ご教示いただけましたら有り難いです。
よろしくお願い致します。
No.3ベストアンサー
- 回答日時:
以下のような処理を行えば2ページ目以降の先頭行が取得できます。
取得できた値から、ページ内最終行(取得先頭行-1)の下に太線の罫線を
引けばいいと思います。
処理的には改ページ数に比例して処理が重くなるので、旧処理と一時的に
下記のような処理を組み込んだ場合で、応答性等比較してみてください。
Sub test()
Dim objWs As Excel.Worksheet
Dim objHPBreak As Excel.HPageBreak
Set objWs = ActiveSheet
'データ最終行以降にアクティブセルを移動する必要あり
objWs.Range("a1").SpecialCells(xlCellTypeLastCell).Select
For Each objHPBreak In objWs.HPageBreaks
Debug.Print objHPBreak.Location.Row
Next objHPBreak
Set objHPBreak = Nothing
Set objWs = Nothing
End Sub
No.2
- 回答日時:
こんにちは。
可能です。
#1さんとほぼ同じです。
私はVBAではなくVB6.0からEXCELの印刷をしていますが、今試してみたらちゃんと引けました。
改ページの計算を印刷前に行っているなら、そこで引いたら楽かと思います。
参考URL:http://www.bcap.co.jp/hanafusa/VBHLP/excel06.htm
No.1
- 回答日時:
エクセルVBAでは印刷実行はPrintOut(範囲)を使うと思いますが,
その「範囲」のA○:J□の□のところのついて(Jは仮の例)
たとえば1:50,51:100,101:150のように印刷するデータ行数を毎回(内容にかかわらず)決めてしまえば、こちらでその行(□)の下線を太線に一時的に変えて印刷し、その後細線に戻すのをページ数だけ繰り返せばよいと思います。
最下行数から計算し、最後のページにはこれを行わない工夫も必要です。
印刷する前にイベントとして知らせてくれたり、設定1つで質問のようには
できないと思います。
ご回答ありがとうございます。
EXCELの基本機能としてあってもいいような
機能だと思うのですが、見つからないので、
VBAで作ろうと思っています。
参考にさせていただきます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 条件付き書式で太罫線を引く方法 3 2023/05/29 12:17
- Word(ワード) Word 段落罫線の上下のスペースを広げるには 3 2023/08/04 10:52
- Visual Basic(VBA) PowerPoint VBA で画像の鮮明度を変更する方法がわかりません 2 2023/03/24 13:34
- その他(Microsoft Office) EXCELの1行を1枚の用紙にそれぞれ印刷したい。 3 2022/10/10 11:35
- 電気・ガス・水道業 配電線の電線の太さ 6 2023/03/23 23:41
- Windows 10 エクセルの罫線がパワポに貼り付けると見えなくなる。 3 2022/12/27 15:23
- 電車・路線・地下鉄 JR西日本のダイヤ改正で今後行われそうなことは何ですか? 1 2022/07/24 12:30
- CAD・DTP EXCELからAUTOCADに貼り付け 1 2022/04/20 17:42
- Word(ワード) 大見出しスタイルの作成(太字、下罫線の太さ、行間固定値)をしなどういう所 1 2023/07/15 22:56
- 運転免許・教習所 走行しながら車線変更で右折レーンに入れないとき、交差点30メートル手前で停車して待てばOKですか 5 2023/07/29 09:34
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PDFファイルを開かずに印刷...
-
ACCESS VBA レポートプレビュー...
-
Excel VBAで文字列の可視長を得...
-
ページ内にスクロールバーのあ...
-
C# 印刷可能領域と余白範囲...
-
WebBrowserコントロールでのPri...
-
印刷範囲の指定はできますか?
-
excelにて各シートの総印刷ペー...
-
サイト全体を縮小して印刷する...
-
マクロで、機密印刷の設定をす...
-
PageBreaks.Countと印刷範囲の...
-
Accessレポートでの改ページ
-
ACCESSで印刷プレビューをした...
-
iframeのスクロールバー位置を...
-
EXCEL VBA 印刷プレビューダイ...
-
印刷時ヘッダーとフッターを挿入
-
横に長いWeb画面を一枚の用紙に...
-
インラインフレームの印刷について
-
IE11でCtrl+Pを禁止する方法に...
-
ユーザースタイルシートの無効化
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PDFファイルを開かずに印刷...
-
EXCEL VBA 印刷プレビューダイ...
-
Excel VBAで文字列の可視長を得...
-
ページ内にスクロールバーのあ...
-
ACCESS VBA レポートプレビュー...
-
EXCEL VBAでPDFファイルを開い...
-
コマンドプロンプトでフォルダ...
-
検索画面に表示される広告について
-
Excel VBA 「印刷中」メッセー...
-
印刷プレビュー表示後ユーザー...
-
excelにて各シートの総印刷ペー...
-
印刷時ヘッダーとフッターを挿入
-
サイト全体を縮小して印刷する...
-
ヘッダやフッタの印刷をしたくない
-
ラジオボタンをチェック済みの...
-
OpenOffice Calc basic で印刷...
-
TEXTAREAの印刷について
-
PageBreaks.Countと印刷範囲の...
-
Accessレポートでの改ページ
-
C# 印刷可能領域と余白範囲...
おすすめ情報