VBA保存工作簿为PDF

Sub SaveWorksheetAsPDF()
Dim ws As Worksheet
For Each ws In Worksheets
ws.ExportAsFixedFormat _
xlTypePDF, _
"Folder-Name" & _
ws.Name & ".pdf"
Next ws
End Sub