excelファイルの特定シートを1つのpdfとして出力するマクロを作りたいです。

Question

前提・実現したいこと

excelファイルの特定シートを1つのpdfとして出力するマクロを作りたいです。
最終的には指定した複数シート(それぞれ印刷範囲は指定済み)をまとめて
1つのpdfファイルとして保存したいです。

その初歩として、以下のコードでマクロを実行したところエラーが出力されました。
当方初心者で申し訳ございませんが、
どなたかアドバイスいただけましたら幸いです。

発生している問題・エラーメッセージ

Sub output_PDF()
    Dim fileName As String '保存先フォルダパス＆ファイル名
    fileName = ThisWorkbook.Path & "/test.pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
End Sub

=>
プリント
プリント中にエラーが起きました。

実行時エラー '1004';
アプリケーション定義またはオブジェクト定義のエラーです。

そこでマクロによる動作はプリントアウト画面まで、
その後は手でpdf化という方法についても検討し以下のコード実行

Sub output_PDF()
    ActiveWorkbook.PrintPreview
End Sub

=>
直接プリンターからの出力がスタートしてしまい、
手で印刷データをpdfとして保存することはできませんでした。

補足情報（FW/ツールのバージョンなど）

Microsoft Excel for Mac
version:16.16.27

Answer 1

この度microsoft office 365の利用で解決致しました。
質問時の状況とは変わってしまいましたが、
こちらではmac上でも無事pdfの出力を行うことができました。
別のvbaやwindowsとの互換性についても今後検証していければ幸いです。

ご回答、コメントいただいた方々ありがとうございました！

Answer 2

過去に同様の質問がありました
https://teratail.com/questions/102122

Excel for Macの場合セキュリティのためかエクスポートできる場所に制約があるようです。

先のページのコメントによると、エクスポート先として
/Users/[ユーザー名]/Library/Containers/com.microsoft.Excel/Data
またはOfficeのデータがインストールされている場所
/Users/[ユーザー名]/Library/Group Containers/UBF8T346G9　　（2016の場合）
ならば保存できるらしいです(未確認)

参考：

サンドボックスにより、アプリがアプリ コンテナー外部のリソースにアクセスできないように制限されます。これは、プロセス全体でファイル アクセスまたは通信に関係するすべてのアドインやマクロに影響します。次のセクションで説明されている新しいコマンドを使用して、サンドボックスの影響を最小限に抑えることができます。

https://msdn.microsoft.com/ja-jp/library/office/mt654019.aspx

Comments

[jinoji]

関連して、ThisWorkbookが保存前だとThisWorkbook.Pathが空欄になって、
保存先が/test.pdfになってしまうというのも要注意です。

[20200713]

お二人ともありがとうございます。
mac向けのexcelだと機能が一部制限されてしまうのですね…

pdfをエクスポートというのが難しければ、マクロでは印刷プレビューまでにとどめ
その後は手でpdf保存という方法を、と追記しましたコードも実行いたしましたが
それでも尚1004のエラーとなってしまいます。
これもExcel for Macを利用していることが原因なのでしょうか…

[jinoji]

これも、ActiveWorkbookが保存されていない場合にそうなるかも。

ちなみに、ActiveWorkbook.PrintPreview として実行したら、
有無を言わさずプリンターから出力されました。
これもExcel for Macを利用していることが原因なのでしょうか…

[20200713]

ファイルを保存して再起動したところなぜか
ActiveWorkbook.PrintOut
ActiveWorkbook.PrintPreview
ともにプリンターから出力となりました。(jinoji様同じ状況のようです)

本当はプレビューにとどめpdfに変換を行いたいのですが、
未だそちらは解決せずです…

[jinoji]

ファイルを保存してから
Sub output_PDF()
Dim fileName As String '保存先フォルダパス＆ファイル名
fileName = ThisWorkbook.Path & "/test.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
End Sub
のマクロを動かすと、
「ファイルアクセスを許可」というダイアログが出ませんか？
それで出力先のフォルダを選択すると、その後ちゃんと動きました。

[20200713]

ファイルを保存というのは、今作業しているExcelファイルという認識で間違いありませんでしょうか…？
であれば保存後こちらのマクロを動かしてもやはり
1004のエラーがはかれてしまいました。
やはりこちらはExcel for Macを使用していることが影響しているかもしれません…