How to Convert a workbook/WorkSheet to PDF

如何将Workbook/Worksheet保存为PDF, 这个主要用到了ExportAsFixedFormat方法，可以将Workbook、Sheet、Chart 或 Range转换为PDF 或XPS格式

 1 Sub ConvertSheetToPDF()
 2 Dim fileName As String
 3 fileName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Select Path and FileName to save")
 4 If fileName <> "False" Then
 5  With ActiveWorkbook
 6  .Worksheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
 7  fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 8  End With
 9 End If
10 End Sub

其参数以及说明也都在MSDN里有着详细描述：

名称	必需/可选	数据类型	说明
Type	必需	XlFixedFormatType	可以是xlTypePDF或xlTypeXPS。
Filename	可选	Variant	一个字符串，指示要保存的文件的名称。可以包括完整路径，否则 Excel 会将文件保存在当前文件夹中。
Quality	可选	Variant	可以设置为xlQualityStandard或xlQualityMinimum。
IncludeDocProperties	可选	Variant	设置为 True 以指明应包含文档属性，或设置为 False 以指明应省略文档属性。
IgnorePrintAreas	可选	Variant	如果设置为 True，则忽略在发布时设置的任何打印区域。如果设置为 False，则使用在发布时设置的打印区域。
From	可选	Variant	发布的起始页码。如果省略此参数，则从起始位置开始发布。
To	可选	Variant	发布的终止页码。如果省略此参数，则发布至最后一页。
OpenAfterPublish	可选	Variant	如果设置为True在发布后在查看器中显示文件。如果设置为False将文件发布但不是显示。
FixedFormatExtClassPtr	可选	Variant	指向 FixedFormatExt 类的指针。