回答編集履歴
1
修正
test
CHANGED
|
@@ -1,3 +1,7 @@
|
|
|
1
|
+
testPrintを呼び出すようにすれば、一か所変更だけですみますね。
|
|
2
|
+
|
|
3
|
+
|
|
4
|
+
|
|
1
5
|
ざっくりですが。
|
|
2
6
|
|
|
3
7
|
testを実行すると、testPrintに指定された値の通りページ設定が行われます。
|
|
@@ -12,9 +16,9 @@
|
|
|
12
16
|
|
|
13
17
|
|
|
14
18
|
|
|
15
|
-
Call testPrint(False, 1, 1, xlPaperB4
|
|
19
|
+
Call testPrint(False, 1, 1, xlPaperB4)
|
|
16
20
|
|
|
17
|
-
Call testPrint(True, 2, 1, xlPaperA4
|
|
21
|
+
Call testPrint(True, 2, 1, xlPaperA4)
|
|
18
22
|
|
|
19
23
|
|
|
20
24
|
|
|
@@ -24,7 +28,7 @@
|
|
|
24
28
|
|
|
25
29
|
|
|
26
30
|
|
|
27
|
-
Sub testPrint(zo, pw, pt, si
|
|
31
|
+
Sub testPrint(zo, pw, pt, si)
|
|
28
32
|
|
|
29
33
|
|
|
30
34
|
|
|
@@ -42,15 +46,9 @@
|
|
|
42
46
|
|
|
43
47
|
|
|
44
48
|
|
|
45
|
-
If p = "PP" Then
|
|
46
|
-
|
|
47
49
|
ActiveSheet.PrintPreview
|
|
48
50
|
|
|
49
|
-
ElseIf p = "PO" Then
|
|
50
|
-
|
|
51
|
-
ActiveSheet.PrintOut
|
|
51
|
+
' ActiveSheet.PrintOut
|
|
52
|
-
|
|
53
|
-
End If
|
|
54
52
|
|
|
55
53
|
|
|
56
54
|
|