回答編集履歴
1
修正
answer
CHANGED
|
@@ -1,3 +1,5 @@
|
|
|
1
|
+
testPrintを呼び出すようにすれば、一か所変更だけですみますね。
|
|
2
|
+
|
|
1
3
|
ざっくりですが。
|
|
2
4
|
testを実行すると、testPrintに指定された値の通りページ設定が行われます。
|
|
3
5
|
プレビューか印刷かも指定できます。
|
|
@@ -5,13 +7,13 @@
|
|
|
5
7
|
```VBA
|
|
6
8
|
Sub test()
|
|
7
9
|
|
|
8
|
-
Call testPrint(False, 1, 1, xlPaperB4
|
|
10
|
+
Call testPrint(False, 1, 1, xlPaperB4)
|
|
9
|
-
Call testPrint(True, 2, 1, xlPaperA4
|
|
11
|
+
Call testPrint(True, 2, 1, xlPaperA4)
|
|
10
12
|
|
|
11
13
|
End Sub
|
|
12
14
|
|
|
13
15
|
|
|
14
|
-
Sub testPrint(zo, pw, pt, si
|
|
16
|
+
Sub testPrint(zo, pw, pt, si)
|
|
15
17
|
|
|
16
18
|
With ActiveSheet.PageSetup
|
|
17
19
|
.Zoom = zo
|
|
@@ -20,11 +22,8 @@
|
|
|
20
22
|
.PaperSize = si
|
|
21
23
|
End With
|
|
22
24
|
|
|
23
|
-
If p = "PP" Then
|
|
24
25
|
ActiveSheet.PrintPreview
|
|
25
|
-
ElseIf p = "PO" Then
|
|
26
|
-
ActiveSheet.PrintOut
|
|
26
|
+
' ActiveSheet.PrintOut
|
|
27
|
-
End If
|
|
28
27
|
|
|
29
28
|
End Sub
|
|
30
29
|
```
|