質問編集履歴

3

ActiveWorkbook.PrintPreviewについて修正致しました。

2021/03/02 14:29

投稿

20200713
20200713

スコア16

test CHANGED
File without changes
test CHANGED
@@ -60,7 +60,7 @@
60
60
 
61
61
  Sub output_PDF()
62
62
 
63
- ActiveWorkbook.PrintOut
63
+ ActiveWorkbook.PrintPreview
64
64
 
65
65
  End Sub
66
66
 
@@ -68,15 +68,9 @@
68
68
 
69
69
  =>
70
70
 
71
- プリント
71
+ 直接プリンターからの出力がスターしてしまい、
72
72
 
73
- プリント中にエラーが起きました。
74
-
75
-
76
-
77
- 実行時エラ '1004';
73
+ 手で印刷デタをpdfとして保存することはできませんでした。
78
-
79
- オブジェクト'PrintOut'のメソッド'_Workbook'が失敗しました。
80
74
 
81
75
 
82
76
 

2

コードとエラーについて追記致しました。

2021/03/02 14:29

投稿

20200713
20200713

スコア16

test CHANGED
File without changes
test CHANGED
@@ -24,26 +24,6 @@
24
24
 
25
25
 
26
26
 
27
- ```
28
-
29
- プリント
30
-
31
- プリント中にエラーが起きました。
32
-
33
-
34
-
35
- 実行時エラー '1004';
36
-
37
- アプリケーション定義またはオブジェクト定義のエラーです。
38
-
39
- ```
40
-
41
-
42
-
43
- ### 該当のソースコード
44
-
45
-
46
-
47
27
  ```vba
48
28
 
49
29
  Sub output_PDF()
@@ -58,6 +38,46 @@
58
38
 
59
39
  ```
60
40
 
41
+ =>
42
+
43
+ プリント
44
+
45
+ プリント中にエラーが起きました。
46
+
47
+
48
+
49
+ 実行時エラー '1004';
50
+
51
+ アプリケーション定義またはオブジェクト定義のエラーです。
52
+
53
+
54
+
55
+ そこでマクロによる動作はプリントアウト画面まで、
56
+
57
+ その後は手でpdf化という方法についても検討し以下のコード実行
58
+
59
+ ```vba
60
+
61
+ Sub output_PDF()
62
+
63
+ ActiveWorkbook.PrintOut
64
+
65
+ End Sub
66
+
67
+ ```
68
+
69
+ =>
70
+
71
+ プリント
72
+
73
+ プリント中にエラーが起きました。
74
+
75
+
76
+
77
+ 実行時エラー '1004';
78
+
79
+ オブジェクト'PrintOut'のメソッド'_Workbook'が失敗しました。
80
+
61
81
 
62
82
 
63
83
  ### 補足情報(FW/ツールのバージョンなど)

1

初心者アイコンをオンに変更いたしました。

2021/03/02 09:09

投稿

20200713
20200713

スコア16

test CHANGED
File without changes
test CHANGED
@@ -15,6 +15,8 @@
15
15
  当方初心者で申し訳ございませんが、
16
16
 
17
17
  どなたかアドバイスいただけましたら幸いです。
18
+
19
+
18
20
 
19
21
 
20
22