根据列值以一张pdf打印多张纸

Question

我在excel中有以下工作簿，并希望打印出多页pdf.file，该文件由工作表“ Oversigt”组成，然后在D列中所有带有x标记的工作表。工作表名称在B列中。

找到此代码：

Sub PrintOut()
    Dim ary
    Dim a As Variant, fp As String
    ary = Array("Oversigt", "211A", "211B")

    fp = ActiveWorkbook.Path

    ThisWorkbook.Sheets(ary).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
End Sub

但是我需要根据B列和D列填充数组，也想问我将pdf文件保存在哪里。