另存为PDF

默认将本工作簿下所有工作表导出另存为pdf文件
Sub 另存为PDF()
Dim path As String
path = ThisWorkbook.path & "" & ThisWorkbook.Name & "_完整版.pdf" 'FileName 要保存的文件的文件名。 可以包括完整路径，否则 Excel 会将文件保存在当前文件夹中
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:=path, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "整个工作簿已成功导出为PDF！" & vbNewLine & "保存位置：" & path, vbInformation
End Sub