複数シートの一括PDF出力

投稿者 : ぶぶる     投稿日時 : 2022/06/23(Thu) 19:51:47     OS : Windows 10     EXCEL : Excel 2016

---

前提として以下の複数シート印刷マクロを作成しています。
※シートインデックス4～最後のシートまでを印刷

このコードを利用して印刷ではなくPDF出力（選択した全シートを一つのPDF
PDF）に変えたいです。

Sub 一括スプール印刷()
    Dim mySht As Variant
    Dim i As Long
    For i = 4 To Worksheets.Count
        If Worksheets(i).Visible = xlSheetVisible Then
            If IsEmpty(mySht) Then
                ReDim mySht(0)
            Else
                ReDim Preserve mySht(UBound(mySht) + 1)
            End If
            mySht(UBound(mySht)) = Worksheets(i).name
        End If
    Next i
    If Not IsEmpty(mySht) Then
        Sheets(mySht).PrintOut Preview:=True　'←ここを変えてPDF出力にできないでしょうか
    End If
End Sub

投稿者 : さんこう     投稿日時 : 2022/06/23(Thu) 20:40:54

---

参考になれば。

https://www.google.com/search?q=excel+vba+pdf%E5%87%BA%E5%8A%9B

投稿者 : ぶぶる     投稿日時 : 2022/06/24(Fri) 08:30:34

---

■[返信 1] さんこうさん（2022-06-23 20:40:54）の記事
＞ 参考になれば。
＞
＞ https://www.google.com/search?q=excel+vba+pdf%E5%87%BA%E5%8A%9B
＞

参考にさせていただき、対応できました。
ありがとうございます。