回答編集履歴
2
解決の手掛かりになりそうな現象を見つけたため追記
test
CHANGED
|
@@ -9,3 +9,13 @@
|
|
|
9
9
|
[追記]
|
|
10
10
|
|
|
11
11
|
試してみたのですが、Excel 2016でページ数指定をしてみると、改ページプレビューでもきちんとそれを考慮した位置に青線が出ますね。となると、先の回答の前半部のような状況にはならなそうです。混乱させてしまいすみません。
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
15
|
+
[さらに追記]
|
|
16
|
+
|
|
17
|
+
もう一つ挙動を確認してみましたのでお試しください。
|
|
18
|
+
|
|
19
|
+
どうも、改ページプレビュー状態でVBAからページ設定を変更しても、自動的にシート全体が再描画されたりはしないため、青線が狂って表示されるようです。
|
|
20
|
+
|
|
21
|
+
End Withの次の行にApplication.ScreenUpdating = Trueを入れるなどして、無理やり再描画させてみるとどうでしょう。
|
1
回答内容が実際の挙動と一致しないようなので訂正
test
CHANGED
|
@@ -3,3 +3,9 @@
|
|
|
3
3
|
印刷自体は意図通り1ページで行われるが、青線は残るので削除したい...ということでしたら、WorksheetオブジェクトのResetAllPageBreaksを試されてはいかがでしょうか。
|
|
4
4
|
|
|
5
5
|
もし印刷自体も1ページにならないのでしたら、何か他の箇所に原因があるかもしれません。
|
|
6
|
+
|
|
7
|
+
|
|
8
|
+
|
|
9
|
+
[追記]
|
|
10
|
+
|
|
11
|
+
試してみたのですが、Excel 2016でページ数指定をしてみると、改ページプレビューでもきちんとそれを考慮した位置に青線が出ますね。となると、先の回答の前半部のような状況にはならなそうです。混乱させてしまいすみません。
|