如何将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 类的指针。 |