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