回答率: 85.31%

質問するログイン新規登録

トップに関する質問 VBA 改ページ位置の削除

編集履歴

質問編集履歴

1

コードの変更

2017/05/20 06:22

投稿

スコア224

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -12,9 +12,9 @@
   '印刷する範囲を設定する
-  ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(cr - 1, eday + 3)).Address
+  With ActiveSheet.PageSetup
-  With Worksheets(1).PageSetup
+    .Zoom = False
     .FitToPagesWide = 1 '横幅が１ページに納まるように印刷する