把每個工作表印成一個pdf檔

Sub printall()

  For i = 2 To Worksheets("設定資料").UsedRange.Rows.Count

    Dim filename As String: filename = Worksheets("設定資料").Cells(i, 2)

    Worksheets(Worksheets("設定資料").Cells(i, 1).Text).ExportAsFixedFormat Type:=xlTypePDF, _

                                                            filename:=filename, _

                                                            Quality:=xlQualityStandard, _

                                                            IncludeDocProperties:=True, _

                                                            IgnorePrintAreas:=False, _

                                                            OpenAfterPublish:=False

  Next

End Sub