エクセル2013で、マクロを使って複数シートを1つのPDFファイルとして出力したい場合

Question

まず、

Sheet1～3まであるエクセルファイルがあるとします。
その中で「Sheet1」と「Sheet3」を、1つのPDFファイルとして出力したい場合、
下記サイトのマクロのコードを利用しました。
https://tonari-it.com/excel-vba-pdf-array/

（すでに保存ファイル名やArray関数の中身は置き換えてあります。）

 
Dim fileName As String '保存先フォルダパス＆ファイル名
fileName = ThisWorkbook.Path & "\test01.pdf"
 
Dim ws As Worksheet
For Each ws In Worksheets(Array("Sheet1", "Sheet3"))
 
    With ws.PageSetup
 
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .CenterHorizontally = True
        .TopMargin = Application.CentimetersToPoints(1)
        .BottomMargin = Application.CentimetersToPoints(1)
 
    End With
 
Next ws
 
Worksheets(Array("Sheet1", "Sheet3")).Select
ActiveWorkbook.PrintPreview
'ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName '選択したシートをPDF出力
 
End Sub

####すると、
ActiveWorkbook.PrintPreview　で、プレビュー画面はちゃんと表示されるので、
この行をコメント化して、次の行を実行できるようにすると
（下記のような状態にすると、、、）

Worksheets(Array("Sheet1", "Sheet3")).Select
'ActiveWorkbook.PrintPreview
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName '選択したシートをPDF出力

####Sheet1～3まで全部が出力されてしまいます。

このサイトで紹介されているコードが間違っているのでしょうか？

それとも私の入力や打ち間違いでしょうか？

原因のわかる方、いらっしゃればお力をかしてください。

Answer 1

PrintPreviewは印刷関連の物で、ExportAsFixedFormatは保存関連の物だからです。
質問のコードではActiveWorkbook.ExportAsFixedFormatとworkbookオブジェクトのExportAsFixedFormatを使用されているのでブック全体が出力されます。

ExportAsFixedFormatメソッドはRange,Worksheet,Workbookのそれぞれのオブジェクトに存在しますが、複数シートを選択したSelectionオブジェクトには存在しないため質問者さんの要件に合う物は存在しません。

以下のようにすると、ExportAsFixedFormatメソッドで近いことは出来ます。（印刷範囲の設定などは反映されません）

Sheets(Array("Sheet1", "Sheet3")).Select
Cells.Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileName

PrintPreviewと同じ物を出力する場合はPrintOutメソッドを使用してください。

Sheets(Array("Sheet1", "Sheet2")).PrintOut _
       ActivePrinter:="Microsoft Print to PDF on Ne01:", Copies:=1, Collate:=True, _
       IgnorePrintAreas:=False, printtofile:=True, prtofilename:=fileName

Comments

[kawase2]

Y.H.さま、お答えありがとうございます。

紹介していただいた、ExportAsFixedFormatメソッドを使ったコードは、セル全部が出力されます。実はPDF出力したい範囲の外側にデータや計算式が入っているのですが、それまで出力されてしまう結果になりました。

2つ目の、PrintOutメソッドを使ったコードは出力先に、PrimoPDFなどを使うと上手く出力できました。

最後に質問の中で紹介させていただいたコードですが、コメントをつけている方の

>>’ActiveWorkbook.ExportAsFixedFormat Type:=
>この部分について、正しくは
>ActiveSheet.Ex～

上記のコードを試してみると、これも上手くいきました。

つまり複数シートを選択して、
ActiveSheet.ExportAsFixedFormat～、は上手く動きました。

まとめ。
複数のシートを選択して、1つのPDFファイルに出力する方法としては、
今回質問させていただいたことで、3つわかり、それぞれ動作が違うので、場合に応じて使い分けていくのがいいと思います。
お答えいただきありがとうございます。