質問編集履歴
1
コードの変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,8 +5,8 @@
|
|
|
5
5
|
※印刷範囲の指定は自分の指定した範囲になっているので問題ないです。
|
|
6
6
|
```ここに言語を入力
|
|
7
7
|
'印刷する範囲を設定する
|
|
8
|
-
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(cr - 1, eday + 3)).Address
|
|
9
|
-
With
|
|
8
|
+
With ActiveSheet.PageSetup
|
|
9
|
+
.Zoom = False
|
|
10
10
|
.FitToPagesWide = 1 '横幅が１ページに納まるように印刷する
|
|
11
11
|
.FitToPagesTall = 1 '縦高が１ページに納まるように印刷する
|
|
12
12
|
End With
|