自動PDF出力

シートをPDFにして保存する。

Dim i As Long
Dim Name As String
For i = 3 To Sheets.Count
　Name = ThisWorkbook.Path & _
　　"￥" & Sheets(i).Name & _
　　Format(Date, "yyyymmdd")
　Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name
Next

★明細と★まとめシートは印刷しない為、

For i = 3 To Sheets.Count　を使って3つ目からシート数5までをPDF化する。

　Name = ThisWorkbook.Path & "￥" & Sheets(i).Name & Format(Date, "yyyymmdd")

変数Nameにブック名を格納。

同じ階層のPath　+　シート名と日付

Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name

i番目のシートをPDF出力する。ブック名は変数Name。