回答編集履歴

2

書式の改善

2018/05/24 13:27

投稿

hatena19
hatena19

スコア33715

test CHANGED
@@ -32,6 +32,8 @@
32
32
 
33
33
  |IgnorePrintAreas|省略可能|バリアント型 (Variant)|True に設定すると、発行する場合に印刷範囲が無視されます。 False に設定すると、発行する場合に印刷範囲が使用されます|
34
34
 
35
+
36
+
35
37
  下記でどうでしょう。
36
38
 
37
39
  ```vba

1

追記

2018/05/24 13:27

投稿

hatena19
hatena19

スコア33715

test CHANGED
@@ -9,3 +9,37 @@
9
9
 
10
10
 
11
11
  [初心者でも簡単!エクセルVBAでPDFを出力する最もシンプルなプログラム](https://tonari-it.com/excel-vba-pdf/)
12
+
13
+
14
+
15
+ 追記
16
+
17
+ ---
18
+
19
+ > ページエリアも指定の場所でない部分がpdf化されるだけになってしまいます。
20
+
21
+
22
+
23
+ [Workbook.ExportAsFixedFormat メソッド (Excel)](https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/workbook-exportasfixedformat-method-excel?f=255&MSPPError=-2147217396)
24
+
25
+
26
+
27
+ 上記より引用
28
+
29
+ |名前|必須 / 省略可能|データ型|説明|
30
+
31
+ |:--|:--:|--:|
32
+
33
+ |IgnorePrintAreas|省略可能|バリアント型 (Variant)|True に設定すると、発行する場合に印刷範囲が無視されます。 False に設定すると、発行する場合に印刷範囲が使用されます|
34
+
35
+ 下記でどうでしょう。
36
+
37
+ ```vba
38
+
39
+ Worksheets("印刷シート").PageSetup.PrintArea = "A1:E30"
40
+
41
+ ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName _
42
+
43
+ IgnorePrintAreas = False
44
+
45
+ ```