ExcelVBA 改ページの横破線を消す方法

Question

Excel VBAで、以下のようなことをしたいです。

前置き：
Excelのシートで、一覧があります。
この一覧は、事前にA4の紙四枚に印刷出来るように印刷範囲、改ページの設定をしてあります。
●印刷範囲指定
・a4縦に印刷
・一覧は、横長12列 x 4が、印刷範囲に指定
・1ページ内に、12列含む、縦長のa4に印刷

このシートを、別のブックに保存でコピーして、ブックが表示されると
この改ページが結構乱れていて、指定していたようなa4　x 4枚の紙に印刷出来ません。

それを、vbaコードである程度修正したましたが、それでも、
横に破線が一本表示されてしまい、そこで、改ページされてしまいます。

手動ならば、この破線をマウスで下にスクロールして、消す事は出来ますが、それをvbaで消したいのですが、どうすれば良いでしょうか。消すというのは削除するということです。
その破線が、どの行のbOTTOM部分に位置しているか判断する方法がわかりませんので、vbaでその破線をスクロールするのは難しそうですし、消す方法もわかりません。

よろしくお願いします。

fujillin · Accepted Answer

ANo1です。

＞それを、vbaコードである程度修正したましたが・・・
とありましたので、A4にきちんと収まるように修正がなされていて、改ページ位置だけがうまく調整出来ないという状況かと思いましたが、どうやら違うのかも知れませんね。

どのような方法でコピーなさっているのかわかりませんが、改ページの設定をする前に、セルサイズやページ印刷の設定（余白など）についても、予定の内容に再設定しておかないと、改ページの位置を予定通りに設定できない場合があります。

あとは、設定の際にいきなり既存の改ページをキャンセルしようとしても物理的に無理な場合はできません。
再設定の手順としては、（確実に改ページできるとわかっている）予定の位置にまず改ページを設定したうえで、残りの不要な部分について削除する必要があります。
理由についてはANo2様が言及していらっしゃいますので省略。

WindFaller · Answer

こんばんは。

#2の回答者です。

>以下のようなソースで、移動させて消すことは出来ました。

DragOff(Direction, RegionIndex)
を使えば消えますね。改ページプレビューの時だけに働く機能です。

点線は、物理的に入らないというメッセージですが、マクロ的に、DragOffを使って、結果的に縮小が掛かるというわけです。

私は、あまり、そういうことは考えたことがありません。それで良い職場もあるとは思いますが、縮小は、言葉には出せないほどの苦い思い出があります。

想像どおりでしたが、
>ページレイアウトを見てみると、99%の拡大率で、上1.9, ヘッダー1.3, 右2.2, 左2.5, 下2, フッター1.3となります。

その設定で、自動改ページが出るのだったら、私は、物理的な調整をすると考えていました。上のマージンを調整をしますね。

以下をマクロでやるような人はいないと思いますが、このようなことを意味しています。

Sub PrintArrangement()
　Dim k As Long
　With ActiveSheet
　　k = .PageSetup.TopMargin
　　Do Until ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(64))") = 1
　　　k = k - 1
　　　If k < 3 Then Exit Do  '適正値は知りません。
　　　.PageSetup.TopMargin = k
　　　DoEvents
　　Loop
　End With
　If k >= 3 Then
　　MsgBox "1枚に収まります。", vbInformation
　End If
End Sub

添付画像で、マクロを掛けるす少しずつ下に降りていきます。

WindFaller · Answer

#1の方に反応していませんから、ちょっと私の方にも返事が付くか分かりませんが、その破線というのは、そもそも改ページプレビューのようです。

改ページというものには、２種類あります。
1.自動改ページ
2.手動改ページ

それで、破線が物理的な位置や範囲問題で入る、1.の場合は、そのままではお手上げなのです。VBAで可能ではあっても、そこまで、回答者側が、上げ膳据え膳のようにお世話することはありません。印刷はトライアンドエラーが必要です。

>この一覧は、事前にA4の紙四枚に印刷出来るように印刷範囲、改ページの設定をしてあります
だから、その最後の位置が足らないということでは？

>その破線が、どの行のbOTTOM部分に位置しているか判断する方法がわかりませんので、vbaでその破線をスクロールするのは難しそうですし、消す方法もわかりま

どの行に入るかぐらいは、VBAでは出ます。その位置も移動できます。

しかし、そういうことではなくて、物理的に改ページを入れなくて、一枚に、その印刷範囲が入るかどうかの前提がなくては、途中でかからないようにすることはできないのです。

やたらに、その改ページの破線が入るわけではありません。物理的な領域が足らないからです。主に、上のマージンが、デフォルトのままであるとか、そうするとうまく行かないのです。(上と左のマージンで、他のマージンは決まってくるので、とりあえず、上部のマージンを調整します。)

手動改ページをVBAで適当な所には入れられるのです。それには、そこに印刷できるという前提があってのことです。また、A41枚に入れる問題には、手動改ページは直接関係がありません。

だから、直接VBAの問題ではありません。

私の話は分かっていただけますでしょうか？

fujillin · Answer

こんにちは

改ページの位置があらかじめ分かっているのであれば、以下を利用して再設定すればよさそうに思います。
https://msdn.microsoft.com/ja-jp/library/office/ff193644.aspx

ExcelVBA 改ページの横破線を消す方法

ANo1です。

こんばんは。

#1の方に反応していませんから、ちょっと私の方にも返事が付くか分かりませんが、その破線というのは、そもそも改ページプレビューのようです。

こんにちは

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

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

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

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

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

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