回答編集履歴

2

こちらかがいいかも

2020/07/29 14:00

投稿

mako1972
mako1972

スコア383

test CHANGED
@@ -1,5 +1,15 @@
1
- ActiveWorkbook.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=ExcelFilePath & ExFileName '選択したシートをPDF出力
1
+ windows10 Excel2019でVBAを検証してみました。windowsでもPDFが作成されました
2
+
3
+ はじめの1ページのみということで、下記のように修正してみましたところうまくいきました。
2
4
 
3
5
 
4
6
 
7
+ ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ExcelFilePath & ExFileName
8
+
9
+
10
+
11
+ ActiveWorkbook.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=ExcelFilePath & ExFileName
12
+
13
+
14
+
5
- ActiveWorkbook.Sheets(1)でwindowsではいきました。
15
+ に修正して、windowsでは1ページのみのPDFとなりました。

1

こちらかがいいかも

2020/07/29 14:00

投稿

mako1972
mako1972

スコア383

test CHANGED
@@ -2,4 +2,4 @@
2
2
 
3
3
 
4
4
 
5
- でwindowsではいきました。
5
+ ActiveWorkbook.Sheets(1)でwindowsではいきました。