Worksheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:="test.pdf"
が基本だが、これだと1シート1pdf。
複数シート1pdfにするには下記。
Sheets(Array("Sheet1", "Sheet2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="test.pdf"
下記ではダメ
Sheets(Array("Sheet1", "Sheet2")).ExportAsFixedFormat Type:=xlTypePDF, Filename:="test.pdf"