如何将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 类的指针。 |
时间: 2024-11-08 17:19:19